¿Cómo validar un texbox para números?
Hola de ante mano gracias por aceptar mi pregunta.
Bien la duda que tengo es como validar un texbox para que solo acepte numero bien yo estoy usando visual studio 2008 .net mira se gun yo es así pero salo dos beses el mensaje y no se por que si me pudieras resolver la duda te lo agradecería mucho.
Private Sub lx_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lx.TextChanged
If Not IsNumeric(lx.Text) Then
lx.Text = ""
lx.Focus()
MsgBox("Solo acepta valores numéricos", MsgBoxStyle.Exclamation=MsgBoxStyle.Exclamation)
Else
End If
Gracias, saludos.
Bien la duda que tengo es como validar un texbox para que solo acepte numero bien yo estoy usando visual studio 2008 .net mira se gun yo es así pero salo dos beses el mensaje y no se por que si me pudieras resolver la duda te lo agradecería mucho.
Private Sub lx_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lx.TextChanged
If Not IsNumeric(lx.Text) Then
lx.Text = ""
lx.Focus()
MsgBox("Solo acepta valores numéricos", MsgBoxStyle.Exclamation=MsgBoxStyle.Exclamation)
Else
End If
Gracias, saludos.
1 Respuesta
Respuesta de calvuch
1
No manejo .net, pero si te sirve de algo
Te dejo una rutina que utilizo para eso mismo. ( version 6.0)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii = 13 Then
KeyAscii = 0
Text1.SetFocus
Else
If (UCase(Chr(KeyAscii)) Like "[!0-9,.]") Then
KeyAscii = 0
End If
End If
End Sub
Te dejo una rutina que utilizo para eso mismo. ( version 6.0)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii = 13 Then
KeyAscii = 0
Text1.SetFocus
Else
If (UCase(Chr(KeyAscii)) Like "[!0-9,.]") Then
KeyAscii = 0
End If
End If
End Sub
