Discussion :

[patyve]

Bonjour

J'ai besoin dans ma macro VBA AutoCAD de détecter l'action sur une touche du clavier.
En fait je voudrai quitter ou lancer un autre programme à l'aide de 2 touches du clavier.

Merci pour votre aide

[rom1_am]

Bonjour,

Je ne sais pas si ça peux t'aider pour détecter l'appui sur 2 touches mais je procède de la façon suivante en vba autocad pour détecter l'appui sur Echap :

- Declarer la fonction windows suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 'Fonction windows recuperant la derniere touche actionnée
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

-Dans la procedure où tu souhaites détecter l'action clavier, faire un 1er appel pour réinitialiser la fonction (car la fonction mémorise l'appui sur la touche - fonctionnement asynchrone)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 GetAsyncKeyState (vbKeyEscape) '1er appel pour reinitialiser

- Plus loin dans la procèdure, au moment où tu veux détecter l'action clavier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   'Appui sur ECHAP
    If GetAsyncKeyState(vbKeyEscape) Then ...