Savoir si une touche est pressée ou non

0/5 (2 avis)

Snippet vu 6 206 fois - Téléchargée 40 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
kakenette Messages postés 218 Date d'inscription dimanche 1 mai 2005 Statut Membre Dernière intervention 15 novembre 2009 1
2 mai 2005 à 01:31
Yes nikel ! Pas tout de suite compris mais maintenant c bon.

Par contre des fois sa réagit pas...
FirSteph Messages postés 60 Date d'inscription lundi 21 octobre 2002 Statut Membre Dernière intervention 7 octobre 2007
30 déc. 2002 à 16:44
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.