![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
19/09/2006, 16:15
|
| | Fecha de Ingreso: septiembre-2006
Mensajes: 4
Antigüedad: 18 años, 4 meses Puntos: 0 | |
Posible solución Si no querés utilizar expresiones regulares,
te puede servir esta solución:
Private Sub TextBoxCódigoColegioProfesional_KeyPress( _
ByVal sender As Object, _
ByVal e _
As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBoxCódigoColegioProfesional.KeyPress
If ( _
(Asc(e.KeyChar) < 48) And (Asc(e.KeyChar) <> 8) _
) _
Or (Asc(e.KeyChar) > 57) _
Then
Dim l_SeparadorDecimal As String = "."
If (e.KeyChar = l_SeparadorDecimal) _
And (0 <> _
InStr(Me.TextBoxCódigoColegioProfesional.Text, _
l_SeparadorDecimal, CompareMethod.Binary)) _
Then
MsgBox("Sólo se permiten Números")
e.Handled = True
End If
End If
End Sub
OJO.- Si el separador decimal de tu máquina es "," cambiá el valor de la variable "l_SeparadorDecimal". Lo que pasa es que, hasta salir del evento "KeyPress", el nuevo separador decimal no pasa a formar parte del "TextBox"; por eso, valido que no exista un separador decimal previo. Esta validación la usé en una de mis aplicaciones.
Ojalá te sirva de algo. |