
Solo números
Visual Basic
Publicado el 21 de Marzo del 2004 por Faisal Jalit
26.317 visualizaciones desde el 21 de Marzo del 2004
Función que solo permite la entrada de números.
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = SoloNumeros(KeyAscii)
End Sub
Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
'permite que solo sean ingresados los numeros, el ENTER y el RETROCESO
If InStr("0123456789/-", Chr(KeyAscii)) = 0 Then
SoloNumeros = 0
Else
SoloNumeros = KeyAscii
End If
' teclas especiales permitidas
If KeyAscii = 8 Then SoloNumeros = KeyAscii ' borrado atras
If KeyAscii = 13 Then SoloNumeros = KeyAscii 'Enter
End Function
Comentarios sobre la versión: Versión 1 (15)
Private Sub Text1_keyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
If KeyAscii = 13 Or KeyAscii = 8 Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
Saludetes
Ejm: 12.5
Y muy cierto q todos acostumbramos borrar con el Backspace.
Saludos...Nico.