Visual Basic - Limitar un textbox a numeros

Life is soft - evento anual de software empresarial
 
Vista:

Limitar un textbox a numeros

Publicado por Topo G. (159 intervenciones) el 11/12/2001 19:55:08
tengo un textbox en donde se imgresan solo numeros...cambie el dataformat a numeros solamente pero si ingreso una letra me tira un error.....como hago para que si en vez de un error de compilacion me muestre un mensaje por ejemplo
ya que estamos como es el simbolo de distinto (!= en C) en visual basic?
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:Limitar un textbox a numeros

Publicado por Fran (114 intervenciones) el 11/12/2001 20:34:27
Yo en VB5 emplearía el siguiente código:

On error resume next

y a continuación de la instrucción que emplees para ingresar :

If error then
msgbox "Error " & err.description
textbox.setfocus
exit sub
end if
-----------------------
Para expresar NO IGUAL : <>

Espero que ésto te sirva.-Un saludo.
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:Limitar un textbox a numeros

Publicado por Rasta (41 intervenciones) el 12/12/2001 05:51:54
Si quieres llimitar los caracteres para que solo puedan meter números prueba con este código.

Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)

If Chr$(KeyAscii) < "0" Or Chr$(KeyAscii) > "9" Then
KeyAscii = 0
End If

End Sub
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:Limitar un textbox a numeros

Publicado por pancho (11 intervenciones) el 13/12/2001 21:48:45
Hay un control en www.vbasicfacil.com que hace eso y mucho mas.

Un saludo
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:Limitar un textbox a numeros

Publicado por Paul Guerra (8 intervenciones) el 15/12/2001 02:10:44
Probá con el siguiente código:

Private Sub Text1_Change()
Text1.Text = Val(Text1.Text)
End Sub

Simple pero funciona. También lo que podés hacer es ir chequeando letra por letra e ir eliminando los caracteres que no son números. Para saber si un string es un número, usá la función IsNumeric.
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