No escribir acentos

gerardo_goh · #1 (**permalink**) 06/02/2010, 20:40

Hola que tal, tengo un problema como evitar escribir acentos a la hora de ingresar los datos en un textbox, muchas gracias saludos!!!

fradve · #2 (**permalink**) 07/02/2010, 18:33

en el keypress del textbox colócale esto y listo:

Código vb:

Ver originalPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Or KeyAscii = 32 Or KeyAscii = 8 Then
        KeyAscii = Asc(Chr(KeyAscii))
    Else
        KeyAscii = 0
    End If
End Sub

gerardo_goh · #3 (**permalink**) 07/02/2010, 22:07

Muchas me sirvio demasiado eres muy bueno, Saludos!!