Discussion :

[thechef]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Select Case Button
      Case 1 ' ou vbLeftButton
        gauche.Text = gauche.Text + 1
      Case 2 ' ou vbRightButton
         droit.Text = droit.Text + 1
      Case 4 ' 'vbMiddleButton
          milieu.Text = milieu.Text + 1
        End Select

dans ce code il me compte juste les cliques sur image1
y a il une facon pour qu'il compte tous les cliques meme les cliues sur l'ecran et meme quand l'application est en mode "reduire"

merci.

[iclic]

Tu dois faire pour chaque objet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub objet_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Select Case Button
      Case 1 ' ou vbLeftButton
        gauche.Text = gauche.Text + 1
      Case 2 ' ou vbRightButton
         droit.Text = droit.Text + 1
      Case 4 ' 'vbMiddleButton
          milieu.Text = milieu.Text + 1
        End Select
End sub

[thechef]

Tu dois faire pour chaque objet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub objet_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Select Case Button
      Case 1 ' ou vbLeftButton
        gauche.Text = gauche.Text + 1
      Case 2 ' ou vbRightButton
         droit.Text = droit.Text + 1
      Case 4 ' 'vbMiddleButton
          milieu.Text = milieu.Text + 1
        End Select
End sub

oui, mais aussi quand l'utilisateur clique en dehors de la de la fenêtre de l'application
c'est a dire quand il clique par exemple sur le poste de travail ...

[iclic]

...c'est a dire quand il clique par exemple sur le poste de travail

Tant que tu restes en VB6, en dehors on ne sait pas controler.
Mais quel est l'intérêt de savoir combien de fois on a cliqué sur

1.le bouton gauche
2.le bouton droit
3.le bouton central

dans une Textbox? Et dans ton application? A quoi celà sert-il?
Je n'en vois pas , à première vue, l'utilité où alors un éclaircissement serait utile.

A+

[thechef]

cet un programme qui fait le calcule de clic que l'utilisateur les fai avec la souris
et il te donne le % des cliques gauches droits ..

[rv26t]

Bonjour,

dans un autre discution, Hugoclo t'avais donné une piste : utiliser l'API GetAsyncKeyState.

Détection de clic gauche même hors fenêtre appli

Dans un module

Code :

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

1
2
 
Public Declare Function GetAsyncKeyState Lib "User32" (ByVal uAction As Long) As Long

Dans une Form : 1 textbox (Text1) et 1 timer (Timer1)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private iNbClick      As Long
Private bAttendClick  As Boolean
 
Private Sub Form_Load()
  Text1.Text = "0"
  iNbClick = 0
  bAttendClick = True
  Timer1.Interval = 5  ' timer placé sur 5 milli seconde
End Sub
 
' Attention : tant que le bouton est appuyé la fonction GetAsyncKeyState renvoie 
' une valeur (nous le gérons avec bAttendClick)
Private Sub Timer1_Timer()
  If GetAsyncKeyState(vbKeyLButton) > 0 Then
    If bAttendClick Then
      iNbClick = iNbClick + 1
      Text1.Text = CStr(iNbClick)
      bAttendClick = False
    End If
  Else
    bAttendClick = True
  End If
End Sub

Sinon regarde sur vbAccelerator
http://www.vbaccelerator.com/home/VB...ks/article.asp

A+, Hervé.