Bonjour,
Je suis sous Access 2000 et je souhaite bloquer la roulette de la souris.
J'ai suivi "à la lettre" le tuto présent sur le FAQ mais j'ai une erreur que je ne sais pas corriger :
J'ai l'impression qu'il ne reconnait pas la déclaration de la variable alors que le dll est installé et qu'il est coché et que la variable est coché.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Application defined or object-defined error
il bloque sur la ligne
Ci-dessous le code du formuaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Set clsMouseWheel = New MouseWheel.CMouseWheel
Avez-vous une idée de la provenance de cette erreur ?
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 Option Compare Database Option Explicit Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel Private Sub clsMouseWheel_MouseWheel(Cancel As Integer) Cancel = True End Sub 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
Merci pour votre aide.
Partager