KeyCode

[DIDAKE]

Hola Estoy realizando una aplicación que recoge pulsaciones del teclado, lo hago mediante el evento KeyPress con esta sentencia:

If KeyAscii = Asc("}") then ....

Pero me gustaría más con el evento KeyUp. Alguien conoce el número de código de este caracter }

If KeyCode = ?? Then

Desde ya gracias

[Avellaneda]

Iniciado por DIDAKE

Hola Estoy realizando una aplicación que recoge pulsaciones del teclado, lo hago mediante el evento KeyPress con esta sentencia:

If KeyAscii = Asc("}") then ....

Pero me gustaría más con el evento KeyUp. Alguien conoce el número de código de este caracter }

If KeyCode = ?? Then

Desde ya gracias

Es el código 191

para saber el código de tecla:

Código:

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

[DIDAKE]

Avellaneda :
Gracias por responderme.
¿Pude ser que el caracter ç (cedilla) tenga el mismo código?
En mi teclado una tecla del mismo tiene ambos caracteres impresos sobre ella, la cuestión es que en mi teclado al pulsar esa tecla aparece ç (cedilla) mientras que en el equipo del cliente aparece } (llave) y el programa no respondió a ese caracter.

Abrí un Block de Notas y noté en el equipo del cliente que al pulsar la tecla aparecía } la llave en cuestión , como si previo a pulsar la tecla pulsara "Alt Gr"

[Avellaneda]

Iniciado por DIDAKE

Avellaneda :
Gracias por responderme.
¿Pude ser que el caracter ç (cedilla) tenga el mismo código?
En mi teclado una tecla del mismo tiene ambos caracteres impresos sobre ella, la cuestión es que en mi teclado al pulsar esa tecla aparece ç (cedilla) mientras que en el equipo del cliente aparece } (llave) y el programa no respondió a ese caracter.

Abrí un Block de Notas y noté en el equipo del cliente que al pulsar la tecla aparecía } la llave en cuestión , como si previo a pulsar la tecla pulsara "Alt Gr"

Bueno, ambas tienen el mismo código de tecla (pues es la misma tecla) pero lo puedes controlar con el parámtro Shift:

Código:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 191 And Shift = 0 Then
    MsgBox "has pulsado ç"
Else
    MsgBox "has pulsado }"
End If
End Sub

[Laforge]

si shift está pulsado: shift = 1
si ctrl está pulsado: shift = 2
si alt está pulsado shift = 4

para conocer combinaciones de estas, solo es necesario combinar la suma de valores:
shift + alt = 1 + 4 -> shift = 5
shift + ctrl = 1 + 2 -> shift = 3
alt + ctrl = 4 + 2 -> shift = 6
shift + ctrl + alt = 1 + 2 + 4 -> shift = 7
altgr = alt+ ctrl

Saludos