OVH Cloud OVH Cloud

[Acc97] Sub Form_KeyDown et appui sur 2 touches

2 réponses
Avatar
Jc
Bonjour(soir) Tous,

Un petit coup de main, Merci...

Je souhaite intercepter l'appui sur 2 touches simultanément, disons "A"
+ "P".

J'essaie :

Private sub Form_KeyDown(Keycode as integer, shift as integer)
If keycode=vbKeyA Then
Msgbox "Vous avez appuyer sur la touche A"
End if

et çà fonctionne, de même si je remplace vbKeyA par vbKeyP, mais si je
remplace par :

Private sub Form_KeyDown(Keycode as integer, shift as integer)
If keycode=vbKeyA and vbKeyP Then
Msgbox "Vous avez appuyer sur la touche A et P"
End if

çà ne fonctionne pas. Que faut-il faire (je n'ai rien trouvé dans
l'aide). Merci et

--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------

2 réponses

Avatar
Raymond [mvp]
Bonjour.

les combinaisons de touches ne concernent que les touches Ctrl, Maj et Alt.
Si on combine deux touches normales A + P, c'est la touche qui est enfoncée
en premier qui compte (down) . Pour le up c'est le contraire.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jc" a écrit dans le message de
news:%
Bonjour(soir) Tous,

Un petit coup de main, Merci...

Je souhaite intercepter l'appui sur 2 touches simultanément, disons "A"
+ "P".

J'essaie :

Private sub Form_KeyDown(Keycode as integer, shift as integer)
If keycode=vbKeyA Then
Msgbox "Vous avez appuyer sur la touche A"
End if

et çà fonctionne, de même si je remplace vbKeyA par vbKeyP, mais si je
remplace par :

Private sub Form_KeyDown(Keycode as integer, shift as integer)
If keycode=vbKeyA and vbKeyP Then
Msgbox "Vous avez appuyer sur la touche A et P"
End if

çà ne fonctionne pas. Que faut-il faire (je n'ai rien trouvé dans
l'aide). Merci et

--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------



Avatar
Jc
Bonjour(soir) Raymond,


"Raymond [mvp]" a écrit dans le message
news: #r#
Bonjour.

les combinaisons de touches ne concernent que les touches Ctrl, Maj et
Alt.

Si on combine deux touches normales A + P, c'est la touche qui est
enfoncée

en premier qui compte (down) . Pour le up c'est le contraire.


Merci de votre réponse. C'est pas que çà m'arrange, mais çà m'évite de
chercher à faire quelque chose d'impossible. Il faut que je trouve une
autre stratégie...
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------

"Jc" a écrit dans le message de
news:%
Bonjour(soir) Tous,

Un petit coup de main, Merci...

Je souhaite intercepter l'appui sur 2 touches simultanément, disons
"A"


+ "P".

J'essaie :

Private sub Form_KeyDown(Keycode as integer, shift as integer)
If keycode=vbKeyA Then
Msgbox "Vous avez appuyer sur la touche A"
End if

et çà fonctionne, de même si je remplace vbKeyA par vbKeyP, mais si
je


remplace par :

Private sub Form_KeyDown(Keycode as integer, shift as integer)
If keycode=vbKeyA and vbKeyP Then
Msgbox "Vous avez appuyer sur la touche A et P"
End if

çà ne fonctionne pas. Que faut-il faire (je n'ai rien trouvé dans
l'aide). Merci et

--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------