Nouvelles sur la desactivation de la molette souris?

Version imprimable

24/02/2006, 09h26
marie10

Nouvelles sur la desactivation de la molette souris?

Bonjour!!

Y a t-il des nouvelles concernant la DLL mouseWheel permettant de desactiver la molette de la souris sur plusieurs formulaire dans ACCESS2003 ?
24/02/2006, 10h30
nicoaix

Pas de nouvelles... bonne nouvelle :D
24/02/2006, 10h52
boubignole

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
24/02/2006, 10h55
marie10

Citation:

Faut pas enregistrer cette dll.

??
24/02/2006, 10h58
boubignole

Voui car ce n'est pas une Dll ActiveX. Faut quelle soit dans system ou dans le meme dossier que la bdd
24/02/2006, 11h42
marie10

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?
24/02/2006, 12h08
boubignole

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
24/02/2006, 12h16
Arkham46

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... :cry:

Code:

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)

[/code]