
04/08/2008, 01:19
|
Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 3 meses Puntos: 37 | |
Respuesta: Visual Basic 2005 - Diccionario Cita:
Iniciado por moradazo 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
Añade la siguiente condición: Or Char.IsControl(caracter) = True |