Buenas!.
Si dejan pulsada una tecla no se repite esta y no deja escribir en la caja de texto.
Hay que volver a levantar el dedo del teclado (
) y volver a escribir.
Claro que....je, je..si compruebo la longitud de la caja de texto, en realidad después de una letra siempre deberá ser la condición a True.
Uy que tarde....
Saludos
Si dejan pulsada una tecla no se repite esta y no deja escribir en la caja de texto.
Hay que volver a levantar el dedo del teclado (
) y volver a escribir.Código:
Private masdeuncaracter As Boolean
Public Sub Form_Open()
With TextBox1
.Font = Font["Mono Noto,Bold, 24"]
End With
End
Public Sub TextBox1_Change()
If Len(TextBox1.Text) >= 1 Then masdeuncaracter = True
End
Public Sub TextBox1_KeyPress()
If masdeuncaracter Then
Stop Event
Else
TextBox1.Insert(Upper(Key.Text))
Stop Event
Endif
End
Public Sub TextBox1_KeyRelease()
masdeuncaracter = False
EndClaro que....je, je..si compruebo la longitud de la caja de texto, en realidad después de una letra siempre deberá ser la condición a True.
Uy que tarde....
Saludos
Última modificación: 28-12-2022, 01:19 por Shell.
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln