![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
04/10/2006, 10:17
|
| | Fecha de Ingreso: septiembre-2006
Mensajes: 4
Antigüedad: 18 años, 4 meses Puntos: 0 | |
Perdón, doy fé de erratas, el código vedadero, era este:
Private Sub TextBoxCódigoColegioProfesional_KeyPress( _
ByVal eventSender As System.Object, _
ByVal e _
As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBoxCódigoColegioProfesional.KeyPress
If ( _
(Asc(e.KeyChar) < 48) _
And (Asc(es.KeyChar) <> 8) _
) _
Or (Asc(e.KeyChar) > 57) _
Then
e.Handled = True
Dim l_SeparadorDecimal As String = "."
If (e.KeyChar = l_SeparadorDecimal) _
And (0 = _
InStr(Me.TextBoxCódigoColegioProfesional.Text, _
l_SeparadorDecimal, CompareMethod.Binary) _
) _
Then
e.Handled = False
End If
End If
End Sub
Copié mal mi ejemplo, éste es el correcto |