Bonjour,
en utilisant le code donné sur le forum pour désactiver la molette de la souris dans une application access,
J'ai une erreur de compilation :
La déclaration de procédure ne correspond pas à la description de l'événement ou de la procédure de même nom
sur :
Le code total est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub clsMouseWheel_MouseWheel(Cancel As Integer) Cancel = True End Sub
La MousWheel est bien cochée dans les références.
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
24 Option Compare Database Option Explicit Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel Private Sub Form_Load() 'Code à rajouter dans l'événement chargement de chaque formulaire Set clsMouseWheel = New MouseWheel.CMouseWheel Set clsMouseWheel.Form = Me clsMouseWheel.SubClassHookForm End Sub Private Sub Form_Close() 'Code à rajouter dans l'événement fermeture de chaque formulaire If Not (clsMouseWheel Is Nothing) Then clsMouseWheel.SubClassUnHookForm Set clsMouseWheel.Form = Nothing Set clsMouseWheel = Nothing End If End Sub Private Sub clsMouseWheel_MouseWheel(Cancel As Integer) Cancel = True End Sub
Merci de votre aide
PS. je suis débutant
Partager