A voir également:
- Getasynckeystate vba
- Vba getasynckeystate - Meilleures réponses
- Getkeystate vba - Meilleures réponses
- Y a t'il autre chose que GetAsyncKeyState ou GetKeyState pour conaitre l'action ✓ - Forum - Visual Basic 6
- Probème avec ✓ - Forum - Visual Basic 6
- Api GetAsyncKeyState et GetKeyState ✓ - Forum - VB.NET
- DETECTION CLICK SOURIS - Forum - Visual Basic
- Vba getasynckeystate - Forum - Visual Basic 6
3 réponses
Gobillot
- Messages postés
- 3140
- Date d'inscription
- vendredi 14 mai 2004
- Statut
- Membre
- Dernière intervention
- 11 mars 2019
If GetAsyncKeyState(16) < 0 Then Shift = True Else schift = False
Daniel
Daniel
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Salut
Utilise plutôt GetKeyState :
Cette fonction te renverra True si le Shift est enfoncé :
Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Function ToucheShiftEnfoncée() As Boolean
If GetKeyState(VK_SHIFT) = -127 Or _
GetKeyState(VK_SHIFT) = -128 Then
ToucheShiftEnfoncée = True
Else
ToucheShiftEnfoncée = False
End If
End Function
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Utilise plutôt GetKeyState :
Cette fonction te renverra True si le Shift est enfoncé :
Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Function ToucheShiftEnfoncée() As Boolean
If GetKeyState(VK_SHIFT) = -127 Or _
GetKeyState(VK_SHIFT) = -128 Then
ToucheShiftEnfoncée = True
Else
ToucheShiftEnfoncée = False
End If
End Function
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)