DETECTION CLICK SOURIS
Signaler
cs_zaky
cs_stephen
- Messages postés
- 7
- Date d'inscription
- lundi 13 mai 2002
- Statut
- Membre
- Dernière intervention
- 27 janvier 2003
cs_stephen
- Messages postés
- 2
- Date d'inscription
- vendredi 26 avril 2002
- Statut
- Membre
- Dernière intervention
- 16 mai 2002
A voir également:
- Getasynckeystate vba
- Getasynckeystate vb6 - Meilleures réponses
- Getcursorpos vba - Meilleures réponses
- Visual Basic / VB.NET : Fonction api pour detection des clicks souris et situation - CodeS SourceS - Guide
- Détecter le double click souris dans une boucle while ✓ - Forum - C++ & C++ .NET
- Visual Basic / VB.NET : Détecter la souris sur un objet - CodeS SourceS - Guide
- Evenement, pression clavier et click souris - Codes sources - Java (Astuces)
- Detection click droit un peut particulier - Codes sources - Javascript (Effets)
2 réponses
cs_Pyros
- Messages postés
- 23
- Date d'inscription
- dimanche 12 août 2001
- Statut
- Membre
- Dernière intervention
- 24 décembre 2003
tu cre un timer
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal uAction As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim Pos As POINTAPI
Private Sub Timer_Timer() 'interval 100
Key = GetAsyncKeyState(i)
if i = 1 then msgbox "leftclick"
if i = 2 then msgbox "rightclick"
if i = 3 then msgbox "centerclick"
GetCursorPos Pos 'met les positions de la souris Position.Caption = Pos.x & " ; " & Pos.y 'affiche la pos
End Sub
:approve)
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal uAction As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim Pos As POINTAPI
Private Sub Timer_Timer() 'interval 100
Key = GetAsyncKeyState(i)
if i = 1 then msgbox "leftclick"
if i = 2 then msgbox "rightclick"
if i = 3 then msgbox "centerclick"
GetCursorPos Pos 'met les positions de la souris Position.Caption = Pos.x & " ; " & Pos.y 'affiche la pos
End Sub
:approve)