KeyUp para Ñ y Ç

[DIDAKE]

Hola :

Estoy trabajando con el evento "KeyUp" y necesito saber si se puede capturar este evento para las teclas Ñ y Ç (cedilla) que no tienen un correspondiente KeyCodeConstants . ¿ Hay alguna forma?
Gracias

[Avellaneda]

Iniciado por DIDAKE

Hola :

Estoy trabajando con el evento "KeyUp" y necesito saber si se puede capturar este evento para las teclas Ñ y Ç (cedilla) que no tienen un correspondiente KeyCodeConstants . ¿ Hay alguna forma?
Gracias

Hola,

lo puedes hacer por el propio código de tecla que pasa como parámetro el evento:

Código:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 192 Then MsgBox "Has pulsado la Ñ"
If KeyCode = 191 Then MsgBox "Has pulsado la Ç"
End Sub

Para saber el código de la tecla pulsada:

Código:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub

[DIDAKE]

Avellaneda : Gracias.
Por alguna razón usando una sentencia Select Case no me funcionaba con los códigos , pero si al usar If then.

[Avellaneda]

Iniciado por DIDAKE

Avellaneda : Gracias.
Por alguna razón usando una sentencia Select Case no me funcionaba con los códigos , pero si al usar If then.

Y cual es el código que pones en la sentencia Select Case?

Porque las contantes de códigos de tecla vbKey... devuelven long igual al código de la tecla pulsada:

Código:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
    MsgBox "A"
Case 192
    MsgBox "Ñ"
End Select
End Sub

[David]

Favor no repetir temas:
http://www.forosdelweb.com/f69/teclado-617444/

Véase: http://www.forosdelweb.com/f40/polit...el-web-101485/

[sagutxo]

Salu2.

También podrías utilizar KeyPress y utilizar KeyAscii=asc("ñ")
Si antes de salir del evento le das a keyascii el Valor 0 no se escribe el caracter en ninguna parte.

o KeyUp KeyCode=asc("ñ")

Por cierto:
ñ=164
Ñ=165
ç=135

Espero haberte servido de algo.
Suerte