1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| 'pour le deplacement avec la molette de la souris
Option Explicit
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
' Constantes pour le type de scrolling
Private Const WM_VSCROLL = &H115
' Constantes pour les commandes
Private Const SB_LINEUP = 0
Private Const SB_LINEDOWN = 1
' Déclaration de l'API
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'fonction pour la souris
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer, zDelta As Integer)
If zDelta < 0 Then
SendMessage Me.hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
Else
SendMessage Me.hwnd, WM_VSCROLL, SB_LINEUP, 0&
End If
Cancel = True
End Sub
Private Sub Form_Close()
'pour la souris
If Not (clsMouseWheel Is Nothing) Then
clsMouseWheel.SubClassUnHookForm
Set clsMouseWheel.Form = Nothing
Set clsMouseWheel = Nothing
End If
End Sub
Private Sub Form_Load()
'pour la souris
Set clsMouseWheel = New MouseWheel.CMouseWheel
Set clsMouseWheel.Form = Me
clsMouseWheel.SubClassHookForm
End Sub[code][/code]
j'ai utilisée la dll du forum
ben en fait il bloque à l'execution en disant que j'ai des variables non definies...
merci!! |
Partager