Public Shared Function soloNumero(ByVal car As Char) As Boolean
Dim ret As Boolean = True
If (car.Equals(Keys.Back) Or car.Equals(Keys.Delete) Or car.Equals(Keys.Left) Or car.Equals(Keys.Right)) Then
ret =
True
Else
If ("0123456789".IndexOf(car) < 0) Then
ret =
False
End If
End If
Return ret
End Function
Public Shared Function soloLetra(ByVal car As Char) As Boolean
Dim ret As Boolean = True
If (car.Equals(Keys.Back) Or car.Equals(Keys.Delete) Or car.Equals(Keys.Left) Or car.Equals(Keys.Right)) Then
ret =
True
Else
If ("0123456789".IndexOf(car) > 0) Then
ret =
False
End If
End If
Return ret
End Function
Estas funciones las estoy usando para tener solo letras y solo numeros respectivamente en VB .NET pro el problema es que no se que hacer para que acepte el BACKSPACE..???? Gracias por la ayuda