Visual Basic - TextBox con acentos

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Cris
Val: 405
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 32 Then
Beep
KeyAscii = 0
End 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

TextBox con acentos

Publicado por Andres Leonardo (1798 intervenciones) el 15/11/2017 23:53:21
pues segun dices....

1
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 32  and KeyAscii = 222 and KeyAscii =219  Then

Ahora no entiendo puesto que los acentos son caracteres no solo el 222 por ende deberias colocar los valores de todas las vocales sea en minusculas o mayusculas con acento

lastima no puedo probar pero con eso estaria...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Cris
Val: 405
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

TextBox con acentos

Publicado por Cris (12 intervenciones) el 16/11/2017 00:08:49
Hola Andrés, gracias por responder.

He probado tú código y si que permite acentuar vocales, pero pierde la condición de no escribir números.

Lo que trato de conseguir, es que sólo escriba vocales (minúsculas y mayúsculas), que permita poner acentos y el apóstrofre, y que no permita escribir números.

Al incluir tú código, funciona todo excepto lo de los números, y no lo entiendo, porque en principio, el código del que parto, no permite números.

Si puedes ayudarme, darme alguna idea, te lo agradezco.

Un saludo y gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Cris
Val: 405
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

TextBox con acentos

Publicado por Cris (12 intervenciones) el 16/11/2017 18:39:15
Gracias, eres muy amable.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar