Tester l' état des touches du clavier (api)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 474 fois - Téléchargée 62 fois

Contenu du snippet

Permet de détecter l' état d' une ou plusieurs touches.

Source / Exemple :


A mettre dans la partie déclarations de ta feuille ou module (sur une seule ligne):

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

 

Ensuite pour connaitre l' état d' une touche tu fais:

IF getasynckeystate(touche) THEN

'Executer si la touche est pressée

ELSE

'Exécuter si la touche n' est pas pressée (facultatif)

END IF

Pour la touche on met soit son numéro, soit on utilise la constante VB correspondante (exemple: VbKeyLeft)

Conclusion :


Il est à notre que la procédure est à effectuer une fois pour chaque touche que l' on veut tester. C' est un petit défaut mais cela permet aussi de détecter l' état de plusieurs touches en même temps.

Il est aussi à noter de cette fonction est très rapide, et qu' avec une seule pression sur une touche le programme peut condidérer qu' il y en a eu plusieurs d' affilée.

A voir également

Ajouter un commentaire

Commentaires

cs_stailer
Messages postés
511
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
13 mai 2009
1 -
Ca fait longtemps que tu l'as posté mais merci quand même. Ca va me servir pour bloquer le CTRL-W dans une appli access
DedeSurf
Messages postés
159
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011
-
Mwè suppert, mais si on ne connais pas le code de la touche on es niké !!!
cytil29
Messages postés
8
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
18 août 2011
-
DedeSurf => C'est vrai que c'est tellement dur d'aller chercher sur Google le code de la touche voulut... (omg...)
sedera15
Messages postés
32
Date d'inscription
vendredi 27 janvier 2012
Statut
Membre
Dernière intervention
4 octobre 2013
-

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.