Connaitre l'etat de la souris
cs_Stephane
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
16 avril 2002 à 20:23
Apodemus Messages postés 24 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 17 avril 2002 - 17 avril 2002 à 12:11
Apodemus Messages postés 24 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 17 avril 2002 - 17 avril 2002 à 12:11
A voir également:
- Connaitre l'etat de la souris
- Dessin de souris ✓ - Forum Delphi / Pascal
- Etat flash leroy merlin - Forum C# / .NET
- Dessin souris - Forum Visual Basic 6
- Logiciel état civil - Forum PHP
- Crosshair souris ✓ - Forum C / C++ / C++.NET
1 réponse
Apodemus
Messages postés
24
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
17 avril 2002
17 avril 2002 à 12:11
17 avril 2002 à 12:11
pour cela il faut utiliser une routine qui va lire l'etat du clavier.
le n° de touche est 1 pour le bouton de gauche et 2 pour celui de droite
Sub VerifKB()
Dim kbd(256) As Byte, i As Integer, j As Integer, s As String, k As Integer
GetKeyboardState kbd(0)
If kbd(1) >= 128 Then
'le bouton de gauche est enfonce
ElseIf kbd(2) >= 128 Then
'le bouton de droite est enfonce
Else....
'
End If
End Sub avec l'API
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
le n° de touche est 1 pour le bouton de gauche et 2 pour celui de droite
Sub VerifKB()
Dim kbd(256) As Byte, i As Integer, j As Integer, s As String, k As Integer
GetKeyboardState kbd(0)
If kbd(1) >= 128 Then
'le bouton de gauche est enfonce
ElseIf kbd(2) >= 128 Then
'le bouton de droite est enfonce
Else....
'
End If
End Sub avec l'API
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long