Visual Basic - validar campos numericos

Life is soft - evento anual de software empresarial
 
Vista:

validar campos numericos

Publicado por Ro (10 intervenciones) el 29/03/2004 01:19:37
Hola! Necesito saber como hacer para controlar que en un textbox se ingresen solamente numeros y viceversa solo letras.Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:validar campos numericos

Publicado por Pablo (3 intervenciones) el 29/03/2004 01:49:01
Hola...
Una forma que yo se, es en el evento "changed" del textbox usar la funcion IsNumeric(Textbox.text) que devuelve un boolean.
Asi por ejemplo:

If Not IsNumeric(TextBox.Text) Then
Textbox.Text = ""
End If

Lo cual va a hacer en este caso que si ingresa una letra se le borra.
Espero te sirva.
Pablo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:validar campos numericos

Publicado por m0rph3ush4ck (11 intervenciones) el 29/03/2004 16:52:25
en el evento validate del textbox escribe:

if not isnumeric(text1.text) then
cancel=true
msgbox "Debe ingresar solo numeros",vbcritical, "Error"
else
cancel=false
end if

m0rph
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:validar campos numericos

Publicado por Fabian (501 intervenciones) el 29/03/2004 18:42:04
En tu modulo podrias porner esto:
Numeros:
Public Function Numeros(ByVal KeyAscii As Integer) As Integer
If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then
Numeros = 0
Else
Numeros = KeyAscii
End If
If KeyAscii = 8 Then NumerosDecimales = KeyAscii ' borrado atras
If KeyAscii = 13 Then NumerosDecimales = KeyAscii ' return
End Function
Letras:
Public Function SoloLetras(ByVal KeyAscii As Integer) As Integer
If InStr("abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ", Chr(KeyAscii)) = 0 Then
SoloLetras = 0
Else
SoloLetras = KeyAscii
End If
If KeyAscii = 8 Then NumerosDecimales = KeyAscii ' borrado atras
If KeyAscii = 13 Then NumerosDecimales = KeyAscii ' return
End Function

Y en el evento Keypress del TextBox:
KeyAscii=SoloLetras(Keyascii)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar