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]](https://i.imgur.com/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.
Pero por ahora solo lo hice con tres caracteres o tres dígitos.
¿ Es posible usar un evento más y solucionarlo de otra forma ?. Keyrelease o Change, quizás eso lo complique más.
Saludos
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.
¿ 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.
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¿ Es posible usar un evento más y solucionarlo de otra forma ?. Keyrelease o Change, quizás eso lo complique más.
Saludos
Archivos adjuntos
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln