Le premier site francophone dédié au développement Pocket PC

Comment lire l'état des touches de votre Pocket PC ?

Avec eVB, votre programme ne se déroule pas de manière linéaire, mais de manière événementielle. En gros, vous attendez que eVB vous prévienne qu'il se passe quelque chose, et vous régissez en conséquence.

Parfois, il peut être important de pouvoir vérifier l'état d'une touche précise, dans des cas où la gestion événementielle n'est pas adaptée.

Pour celà, nous disposons de la fonction GetAsyncKeyState qui permet de retourner l'état de la touche dont le code est passé en paramètre. Cette fonction se trouve dans la librairie Coredll et se déclare de la manière suivante :

Public Declare Function GetAsyncKeyState Lib "Coredll" (ByVal vKey As Long) As Boolean

Les codes des touches que l'on peut vérifier sont les suivants :

Nous déclarons ces valeurs sous forme de constantes dans eVB :

Const VK_LBUTTON = &H1
Const VK_UP = &H26
Const VK_RIGHT = &H27
Const VK_DOWN = &H28
Const VK_LEFT = &H25
Const VK_F23 = &H86

Exemple : Pour récupérer l'état de la touche Action du PAD

Dim wEtat as Boolean

wEtat = GetAsyncKeyState(VK_F23)
If wEtat Then Call MsgBox("La touche action du PAD est enfoncée.")

Ou encore, nous pouvons vérifier si le stylet est en contact avec l'écran :

wEtat = GetAsyncKeyState(VK_LBUTTON)

Et voilà, vous l'avez compris, il n'y a pas que les événements dans la vie...

Stéphane Sibué