Gracias Avellaneda!
Nada más tengo una consulta:
Vieras que si agregué tu código, inclusive aceptando también signos de puntuación y espacios en blanco, pero lo que aún no me deja hacer es borrar con el botón backspace del teclado, digamos si puse una letra de más y quiero borrarla haciéndome para atrás con el backspace no me va dejar.
Será que cuando va borrar está creando en la cadena un campo null que no admite y por lo tanto no borra? Gracias!
Código:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = ValidaText(TextBox1, e.KeyChar)
End Sub
Public Function ValidaText(ByVal txtControl As TextBox, ByVal caracter As Char) As Boolean
If (Char.IsNumber(caracter, 0) = True) Or (Char.IsLetter(caracter) = True) _
Or (Char.IsPunctuation(caracter) = True) Or _
(Char.IsWhiteSpace(caracter) = True) Then
Return False
Else
Return True
End If
End Function