Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
tenes dos opciones, una es utilizar la funcion is not is numeric al salir del textbox y la otra es convertir los datos que entra el usuario por ejemplo text1.text = val(text1.text), ok?
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 ' Cancela el carácter. Beep ' Sonido de aviso de error. End If End Sub
'''''''''''''''''' 'Codigo para aceptar letras mayusculas y minusculas
Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 97 Or KeyAscii > 122 Then 'minusculas If KeyAscii < 65 Or KeyAscii > 90 Then 'mayusculas KeyAscii = 0 ' Cancela el carácter. Beep ' Sonido de aviso de error. End If End If End Sub