Détecter quelle touche du clavier a été appuyée

Return Value

If the function succeeds, the return value specifies whether the key was pressed since the last call to GetAsyncKeyState, and whether the key is currently up or down. If the most significant bit is set, the key is down, and if the least significant bit is set, the key was pressed after the previous call to GetAsyncKeyState. However, you should not rely on this last behavior; for more information, see the Remarks.

Donc en gros cette fonction retourne si la touche vKey est appuyé ou relaché et si depuis le dernier appel la touche à était appuyé :
Exemple avec un timer nommé Timer1 :
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
   
    If GetAsyncKeyState(vbKeyEscape) = -32767 Then      'Si la touche echape est appuyé
          MsgBox "Touche echap enfoncé"
    End If
   
End Sub


Si cela ne correspond pas a ta demande alors precise un peu mieu.

---

www.e-fitz.com
Encore plus de sources et de tutoriels