Comunidad Gambas-es

Shordi 20-01-2023, 11:56

No me reconoce la contraseña de siempre. ¿Os pasa a vosotros?
Me da en la nariz que puede ser algo relacionado con esos cambios que están haciendo en el servidor de gambaswiki...

Saludos

General Respuestas 2

TextBox. Limitar el número de caracteres y evitar concatenar

Shell 20-01-2023, 01:08

Buenas!.

Imaginar que necesitáis escribir una serie de valores en una caja de texto o un valuebox, tantas veces como quieran. Pero no quieren
que al entrar el nuevo texto o valor se mezcle con el que ya existía en la caja de texto. ¿ No es algo que suele ocurrir ?.
Hice un ejemplo sencillo, que al principio se me volvió complicado.

[Imagen: eVtkERY.png]

¿ Qué pasaría si quisieras escribir un nuevo número ?. ( Aunque sea un textbox ).
Tendrías que borrar uno a uno, o seleccionar todo el contenido y borrarlo y luego escribir el nuevo número.

En principio he puesto un máximo de tres dígitos. La verdadera idea sería que se pueda escribir cualquier cosa sin que ocurra lo de arriba. Rolleyes

Pero por ahora solo lo hice con tres caracteres o tres dígitos.

Código:
Const DIGITOSMAXIMOS As Integer = 3

Public Sub txbDigitos_KeyPress()

  If Len(Last.text) < DIGITOSMAXIMOS Then

    If Not IsDigit(Key.Text) Then Stop Event

  Else

    Stop Event

    Last.text = ""

    Last.insert(Key.text)

  Endif

End

Public Sub Form_Open()

  Me.Title = "DÍGITOS MÁXIMOS"

  Label1.Text = "Número máximo de carateres: " & Str(DIGITOSMAXIMOS)

End