detecter les cliques de la souris

**thechef** · 21/02/2009, 09h37

bonjour,

je suis entrain de chercher un code source qui decte si l'utilisateur a cliquer sur le boutton droit ou gauche de la souris puis il ajoute 1 a chaque fois que l'i=utilisateur clique

merci.

**hugoclo** · 21/02/2009, 11h12

Bonjour,
Peut être que ces 2 fonctions peuvent t'aider.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal uAction As Long) As Long
 
Function LeftButton() As Boolean
LeftButton = (GetAsyncKeyState(vbKeyLButton) And &H8000)
End Function
Function RightButton() As Boolean
RightButton = (GetAsyncKeyState(vbKeyRButton) And &H8000)
End Function

**iclic** · 21/02/2009, 11h15

Bonjour,

...qui détecte si l'utilisateur a cliquer sur le boutton droit ou gauche de la souris

Tu prends la MSDN library du VB6
Mots à rechercher, tu tapes 'mouse,
Tu cliques sur 'Réponse aux événements de la souris,
puis tu cliques sur 'Détection des boutons de la souris

A+

...et là tu trouveras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Form_MouseDown(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)
 
   Select Case Button
      Case 1 ' ou vbLeftButton
         Print "Vous avez appuyé sur le bouton gauche."
      Case 2 ' ou vbRightButton
         Print "Vous avez appuyé sur le bouton droit."
      Case 4 ' 'vbMiddleButton
         Print "Vous avez appuyé sur le bouton central."
 
   End Select
End Sub

A+

**thechef** · 21/02/2009, 12h51

merci beaucoup,

mais j'ai pas réussi a ajouter 1 au TextBox qui est nombre.Text a chaque fois que l'utilisateur clique sur par exemple le bouton droit.

**SfJ5Rpw8** · 21/02/2009, 14h18

Envoyé par thechef

merci beaucoup,

mais j'ai pas réussi a ajouter 1 au TextBox qui est nombre.Text a chaque fois que l'utilisateur clique sur par exemple le bouton droit.

et tu as fais quoi ? on peu voir ton code , pour l'addition l'opérateur en vb c'est le + .