Savoir si une touche est pressée ou non

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 630 fois - Téléchargée 38 fois

Contenu du snippet

Une simple fonction qui permet de savoir si une touche est pressée ou non (marche parfaitement)

Source / Exemple :


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

Public Function CheckKeyPressed(ByVal Key As KeyCodeConstants) As Boolean
    If (GetAsyncKeyState(Key)) Then
        CheckKeyPressed = True
    Else: CheckKeyPressed = False
    End If
End Function

' Pour connaitre plusieurs touches en meme temps (simple précision) :
' If CheckKeyPressed(vbKeyControl) = True And CheckKeyPressed(vbKeyA) = True Then
'     MsgBox "CTRL+A"
' End If

A voir également

Ajouter un commentaire

Commentaires

Messages postés
218
Date d'inscription
dimanche 1 mai 2005
Statut
Membre
Dernière intervention
15 novembre 2009
1
Yes nikel ! Pas tout de suite compris mais maintenant c bon.

Par contre des fois sa réagit pas...
Messages postés
60
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2007

Tout simplement excellent. Simple, clair, rapide, c exactement ce qu'il me fallait. Merci enormement pour ce code ! Bonne prog !

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.