Validar un textbox
Hola,
quiero que en un textBox solo se puedan ingresar valores numéricos, ¿cómo hago para validar que no ingresen valores alfanuméricos, o cuando ingresen, aparezca un mensaje de advertencia?
Gracias de antemano
quiero que en un textBox solo se puedan ingresar valores numéricos, ¿cómo hago para validar que no ingresen valores alfanuméricos, o cuando ingresen, aparezca un mensaje de advertencia?
Gracias de antemano
1 respuesta
Respuesta de fvomaster
1
En este caso debes validar el evento keypress de tu objeto de tal manera que sólo te acepte sólo valores numéricos.
Observa el siguiente ejemplo para un textbox llamado text1
Private Sub text1_KeyPress(keyascii As Integer)
If keyascii = 13 Then 'Si presioné la tecla Enter
keyascii = 0
otro_objeto.SetFocus
Else
If (UCase(Chr(keyascii)) Like "[!0-9]") Then 'Permito sólo Números
keyascii = 0
End If
End If
end sub
Observa el siguiente ejemplo para un textbox llamado text1
Private Sub text1_KeyPress(keyascii As Integer)
If keyascii = 13 Then 'Si presioné la tecla Enter
keyascii = 0
otro_objeto.SetFocus
Else
If (UCase(Chr(keyascii)) Like "[!0-9]") Then 'Permito sólo Números
keyascii = 0
End If
End If
end sub
