Description :
La fonction GetKeyState retourne le status de la touche virtuelle (virtual-key code) spécifiée. Autrement dit, cette fonction permet de savoir si une touche est enfoncée (toutes les touches du clavier et les boutons de la souris).
nVirtKey est la touche à tester (voir le tableau de constantes ci-dessous).
La fonction retourne 0 ou 1 lorsque la touche est inactive sinon -128 ou -127 lorsque la touche est enfoncée.

Exemple d'utilisation :

' Exemple de Philippe Plançon : plancon@onetelnet.fr

' Coordonnées d'un point de l'écran
Private Type POINTAPI
    x As Long
    y As Long
End Type

' Retourne la position de la souris sur l'écran
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

' Teste si une touche est enfoncée
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

' Déclaration des touches
Const VK_LBUTTON = 1 ' Left mouse button

Private Sub Timer1_Timer()

    ' Déplacez-vous où vous voulez et appuyez sur le bouton gauche
    ' de la souris et hop on sait tout quand on veut

    '---Déclaration des variables---
    Dim Coord As POINTAPI
    '---Affiche les coordonnées du curseur de la souris---
    If GetKeyState(VK_LBUTTON) >= 0 Then
        Me.Caption = "Bouton gauche de la souris relaché"
    Else
        GetCursorPos Coord
        Me.Caption = "Bouton gauche de la souris enfoncé : x = " & _
                     Coord.x & " , y = " & Coord.y
    End If
End Sub

Retour à la liste des API