Bonjour!!
Y a t-il des nouvelles concernant la DLL mouseWheel permettant de desactiver la molette de la souris sur plusieurs formulaire dans ACCESS2003 ?
Bonjour!!
Y a t-il des nouvelles concernant la DLL mouseWheel permettant de desactiver la molette de la souris sur plusieurs formulaire dans ACCESS2003 ?
Pas de nouvelles... bonne nouvelle
Salut
je ne me rapelle plus quel était le pb (flemme de rechercher) mais y a un site ou on explique comment s'en passer, en utilisant une autre dll (MouseHook).
y a meme une base de démo. Faut pas enregistrer cette dll.
http://www.lebans.com/mousewheelonoff.htm
??Faut pas enregistrer cette dll.
Voui car ce n'est pas une Dll ActiveX. Faut quelle soit dans system ou dans le meme dossier que la bdd
Alors j'au un soucis a la faire marcher sur leur base tst. jai pourtant enregistrer la dll dans mes documents mais qd je fais tourner la macro, elle me dit qu'elle ne trouve pas le fichier Mousehook..
est ce normal? est ce que j'ai oublié de faire qqchose?
La base et la dll sont dans le même dossier ?
dans ce cas c'est la base test qui a un petit bug : il faut faire d'abord STOP Mousewheel et ensuite le START fonctionne
slt,
la mousewheel.dll est en attente de test, j'ai posté dans la page Source/FAQ, j'attend que la rédaction teste
Oui oui tous dans le meme dossier..
J'ai essayer dabord stop et start et ca ne marche pas non plus!
Par contre c'est bizar, dans le code du STOP, il y un truc bizar, car ca commence par On error resume next, OK, pour pas que la macro ne s'arrete si une erreur, et apres, il renvoit un message d'erreu "sorry... mouseHOok not find..."
J'ai l'impression que ce message est renvoyé quoiqu'il en soit!
Enfin de tte facon, ca ne marche pas au niveau du blocage de la souris.. et puis jai du mal a comprendre le code...
[/code]
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
25
26
27
28
29
30
31
32
33
34 Public Function MouseWheelOFF(Optional NoSubFormScroll As Boolean = False, Optional GlobalHook As Boolean = False) As Boolean Dim s As String Dim blRet As Boolean Dim AccessThreadID As Long On Error Resume Next ' Our error string s = "Sorry...cannot find the MouseHook.dll file" & vbCrLf s = s & "Please copy the MouseHook.dll file to your Windows System folder or into the same folder as this Access MDB." ' OK Try to load the DLL assuming it is in the Window System folder hLib = LoadLibrary("MouseHook.dll") If hLib = 0 Then ' See if the DLL is in the same folder as this MDB ' CurrentDB works with both A97 and A2K or higher hLib = LoadLibrary(CurrentDBDir() & "MouseHook.dll") If hLib = 0 Then MsgBox s, vbOKOnly, "MISSING MOUSEHOOK.dll FILE" MouseWheelOFF = False Exit Function End If End If ' Get the ID for this thread AccessThreadID = GetCurrentThreadId() ' Call our MouseHook function in the MouseHook dll. ' Please not the Optional GlobalHook BOOLEAN parameter ' Several developers asked for the MouseHook to be able to work with ' multiple instances of Access. In order to accomodate this request I ' have modified the function to allow the caller to ' specify a thread specific(this current instance of Access only) or ' a global(all applications) MouseWheel Hook. ' Only use the GlobalHook if you will be running multiple instances of Access! MouseWheelOFF = StopMouseWheel(Application.hWndAccessApp, AccessThreadID, NoSubFormScroll, GlobalHook)
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager