TextBox con acentos
Publicado por Cris (12 intervenciones) el 15/11/2017 20:11:25
Hola, planteo una duda porque después de darle mil vueltas al código, no doy con ello. Espero que alguien pueda ayudarme.
Tengo un TextBox, en el que al KeyPress sólo entran letras y espacios con el siguiente código:
Hasta aquí, todo bien.
Pero quiero añadir que además, pueda teclear acentos, que es la tecla 222 y apóstrofe, que es la tecla 219.
¿Cómo se puede hacer?
Muchas gracias de antemano y un saludo.
Tengo un TextBox, en el que al KeyPress sólo entran letras y espacios con el siguiente código:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 ThenKeyAscii = 0SendKeys "{tab}"ElseIf KeyAscii <> 8 Then
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 32 Then
Beep
KeyAscii = 0End If
End If
End Sub
Hasta aquí, todo bien.
Pero quiero añadir que además, pueda teclear acentos, que es la tecla 222 y apóstrofe, que es la tecla 219.
¿Cómo se puede hacer?
Muchas gracias de antemano y un saludo.
Valora esta pregunta
0
