Discussion :

[Milyshyn76]

Bonjour tout le monde,

voila ja'ai un formulaire qui se refere à une table, le soucis c'est que je ne veux pas de défilement d'enregistrements... Mais cette satanée molette les fait défilé et genere des erreurs dans mes requêtes. Je me suis référée au tuto j'ai correctement suivis les étapes mais le souis c'est que le code qu'ils proposent ne marche pas ...

Code :

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

Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

= incomptabilité de type.

Voici le code en entier :

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
Option Compare Database
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
'Procédure à rajouter dans chaque formulaire
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

et le lien pour acceder au tuto



gracias

[Domi2]

Bonjour,

Oui, il semble qu'avec Access 2003, certains problèmes apparaissent...

Regarde ici, le point III-B. Cette solution est plus simple à mettre en place et cela devrait fonctionner.

De plus, pas besoin de registrer la dll.

Domi2

[Milyshyn76]

J'essaie d'linstaller le fichier dans outils/référence , il me dit impossible de spécifier ce fichier, j'avais auparavant installer un autre fichier molette souris, j'ai essaie de l'effacer, mais il ne veur pas

[Domi2]

Bonjour,

Si tu utilises la dll d'Arkham que je t'ai indiquée, tu n'as pas besoin de la référencer dans ton projet.

Pour l'autre problème, je ne comprend pas bien.

Si tu vas dans Outils ==> Références, tu ne peux pas décocher l'ancien fichier ?

Domi2

[Milyshyn76]

j'ai tou effacer tou recommencer, et il me di la même chose, j'ai retelecharger le fichier dll mais il ne veut mm pas me le mettre dans mon répertoire de référence

[Domi2]

Re,

Tu essaies d'utiliser la MouseWheelDVPNoReg d'Arkham46 ?

Domi2

[Milyshyn76]

Je suis désolé mais ça ne marche pas !!! c'est complètement fou !!!!

Code :

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

1
2
3
4
5
6
7
Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" _
            (ByVal pHwnd As Long, ByVal pScrollForm As Boolean)
Private Declare Sub MouseWheelUnHook Lib "MouseWheelDVPNoReg.dll" _
            (ByVal pHwnd As Long)
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
LoadLibrary CurrentProject.Path & "\MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False

voici un début de code et voici l'erreur qu'il génere quand je compile :

CurrentProject = instruction incorrecte à l'intérieur d'une procédure

[Milyshyn76]

voila ce que je fais exactement pour l'installation du fichier .dll

j'ai laisser une pièce jointe

[Domi2]

Bonjour,

Je ne sais pas pourquoi tu tiens absolument à référencer cette dll.

Le titre du tuto est pourtant éloquent.

Tu copies simplement la dll dans le même répertoire que ton application, tu ne références rien dans ton projet et tu ne la registres pas.

Ensuite dans le code du formulaire, dans l'entête, avant les procédures et fonctions, tu mets tes trois premières lignes de codes :

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
Option Explicit
 
Private Declare Sub MouseWheelHook Lib "MouseWheelDVPNoReg.dll" _
            (ByVal pHwnd As Long, ByVal pScrollForm As Boolean)
Private Declare Sub MouseWheelUnHook Lib "MouseWheelDVPNoReg.dll" _
            (ByVal pHwnd As Long)
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Enfin, sur l'événement Sur chargement, tu mets les deux lignes suivantes :

Code :

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

1
2
3
Private Sub Form_Load()
LoadLibrary CurrentProject.Path & "\MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False

Redis-nous...

Domi2

[Milyshyn76]

Coucou,
bon étant donné que je voulais finir mon projet, j'ai mis de coté l'histoire de cette molette, aujourd'hui j'ai repris le problème et ça marche impeccable (on dit plutôt, cela fonctionnne )

Voilà, merci beaucoup de ton aide merci merci merci..
Si j'ai d'autre problèmes je n'hésiterais pas une seconde à te faire signe.