Ver Mensaje Individual
  #17 (permalink)  
Antiguo 04/08/2008, 01:19
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: Visual Basic 2005 - Diccionario

Cita:
Iniciado por moradazo Ver Mensaje
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