Ver Mensaje Individual
  #7 (permalink)  
Antiguo 19/09/2006, 16:15
germansuarez
 
Fecha de Ingreso: septiembre-2006
Mensajes: 4
Antigüedad: 17 años, 7 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.