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