Et encore un de plus, décidément , je suis en forme aujourd'hui

Ce composant à placer sur une form, recupére les evenements déclenchés par la molette de la souris.

Sont fournis : le controle ayant de focus au momment du mouvement de la molette, le sens du mouvement, les coordonées de la souris

Voici un exemple de code sur l'evénement déclenché.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Wheel1_WheelRotate(ctrl As Object, Delta As Long, X As Long, Y As Long)
  Dim CtrlIndex as string
  Dim CtrlName as string
  On Error Resume Next
  CtrlIndex = Cstr(Ctrl.Index)
  On Error goto 0
  If CtrlIndex="" Then
    CtrlName = ctrl.Name
  Else
    CtrlName = ctrl.Name & "(" & Ctrlindex & ")"
  End If
  Debug.Print CtrlName, Delta, X, Y
End Sub
Note : seuls les événements ayant une propriété hWnd peuvent déclencher un événement, donc pour les labels, rien à faire.


OCX DiMouseWheel6.zip