Como usar el Keys para contar los caracteres escritos y borrados
Publicado por David Luna Osorio (1 intervención) el 20/03/2023 08:16:40
Estoy queriendo registrar también los caracteres que se eliminan del textbox1
'Registra que tecla se presiona
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'si no son teclas numericas del 0 al 9 el KeyAscii vuelve a 0
If Not KeyAscii <= 48 And KeyAscii >= 58 Then
KeyAscii = 0
'si son teclas numericas le asigna al label
'la cantidad de caracteres escrito
ElseIf KeyAscii >= 48 And KeyAscii <= 58 Then
Label1 = Len(TextBox1) + 1
'el +1 es porque el contador empieza desde cero
'con el +1 seria como empezar desde 1
End If
End Sub
Como se evidencia el código actualiza tras cada presión de tecla el label1 sumandole un caracter escrito siempre y cuando este sea numerico
Si alguien me ayuda ajustando el codigo para que cuando se borre un caracter este se sume de manera inmediata al Label1 de igual manera como cuando se presiona una tecla numerica
'Registra que tecla se presiona
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'si no son teclas numericas del 0 al 9 el KeyAscii vuelve a 0
If Not KeyAscii <= 48 And KeyAscii >= 58 Then
KeyAscii = 0
'si son teclas numericas le asigna al label
'la cantidad de caracteres escrito
ElseIf KeyAscii >= 48 And KeyAscii <= 58 Then
Label1 = Len(TextBox1) + 1
'el +1 es porque el contador empieza desde cero
'con el +1 seria como empezar desde 1
End If
End Sub
Como se evidencia el código actualiza tras cada presión de tecla el label1 sumandole un caracter escrito siempre y cuando este sea numerico
Si alguien me ayuda ajustando el codigo para que cuando se borre un caracter este se sume de manera inmediata al Label1 de igual manera como cuando se presiona una tecla numerica
Valora esta pregunta
0