Limitar la entrada de valores a números.
Visual Basic 17 julio 2007
Sub Text1_KeyPress (KeyAscii As Integer)
If KeyAscii = 8 Then ‘Permito BACKSPACE
Exit Sub
End If
‘Solo los numeros son permitidos.
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > “9″ Then
KeyAscii = 0 ‘Set character to null if out of range
Beep
End If
End Sub
Vota este artículo:
(No Ratings Yet)
Loading ...Posts anterior y posterior:
Posts Relacionados:
- Previo: « Mayúsculas automáticas
- Siguiente: Codigo de error cuando se viola las condiciones de la mascara »
Comentarios Recientes