Visual Basic - Validacion de texto

Life is soft - evento anual de software empresarial
 
Vista:

Validacion de texto

Publicado por Alejandro (33 intervenciones) el 13/09/2004 15:27:34
Amigos necesito saber omo validar texto en visual, ejemplo si tengo una caja de texto que solo me reciva numeros

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:Validacion de texto

Publicado por Zaratustra (1 intervención) el 13/09/2004 16:31:18
Mirate la ayuda del textBox.

En el evento validate puedes comprobar lo que quieras. Y si quieres cancelar.... pues Cancel = True.

Por favor, miraos la ayuda antes. Sois un poco perros.
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:Validacion de texto...Ejemplo

Publicado por miguel (1042 intervenciones) el 13/09/2004 17:28:24
Si solo quieres que te reciba numeros solamente preguntas lo siguiente:
Sub Recibir(Valor as Variant)
If IsNumeric(Valor) Then
Text1.Text=Valor
End If
End Sub
Nota: Valor, lo mandas como parametro para saber si es numerico o no.
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:Validacion de texto

Publicado por Pedro Luis (878 intervenciones) el 13/09/2004 18:25:06
Podrias poner en el evento Keypress lo siguiente

If (KeyAscii > 31 And KeyAscii < 48) Or (KeyAscii > 57) Then
Beep
KeyAscii = 0
End If

Los números están entre el código 48 y 57, los menores de 31 no pueden teclearse y los mayres de 57 son letras.
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:Validacion de texto

Publicado por Ruri (583 intervenciones) el 13/09/2004 19:36:07
Alejandro:
Para que la caja de texto sólo reciba números utilizá el evento KeyPress del cuadro de texto de esta manera.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then ascii = 0: Beep
End Sub
Saludos Ruri
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