Neutralisation de la roulette de la souris

**alainGL** · 28/05/2007, 16h45

Bonjour

Je cherche à neutraliser la roulette de ma souris au chargement de mon formulaire et à la déneutraliser à la fermeture.
J'ai trouvé la solution d'Arkham46 et je l'en remercie.
Dans un premier temps, je copie la dll dans le même répertoire que mon appli et non sous C:\Windows\system32
Ensuite le code d'Arkham dans un module :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Option Compare Database
 
Option Explicit
 
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
                        (ByVal lpszShortPath As String, ByVal lpszLongPath As String, _
                         ByVal cchBuffer As Long) As Long
 
Private Declare Function DVPDllRegisterServer Lib "MouseWheelDVP" Alias "DllRegisterServer" () As Long
Private Declare Function DVPDllUnregisterServer Lib "MouseWheelDVP" Alias "DllUnregisterServer" () As Long
Private Declare Function DVPDllCanUnloadNow Lib "MouseWheelDVP" Alias "DllCanUnloadNow" () As Long
 
' Enregistre la librairie
Private Sub FnRegLib()
    Dim lLib As Long    ' Identifiant de la librairie
    Dim lReg As Long    ' Pointeur de la fonction d'enregistrement
    ' Référence la librairie dans Access
    On Error Resume Next ' si la librairie est déjà référencée on essaye quand même de l'enregistrer
    Application.References.AddFromFile ApplicationPath & "MouseWheelDVP.dll"
    On Error GoTo Gestion_Erreurs
    ' Charge la librarie
    lLib = LoadLibrary(ApplicationPath & "MouseWheelDVP.dll")
    If lLib = 0 Then
        MsgBox "Impossible de trouver la librairie :" & vbCrLf & ApplicationPath & "MouseWheelDVP.dll"
        Exit Sub
    End If
    ' Enregistre la librairie (en plus du AddFromFile qui parfois n'enregistre pas correctement la librairie)
    If DVPDllRegisterServer <> 0 Then
        MsgBox "Erreur lors du référencement de la librairie"
    End If
Gestion_Erreurs:
    If Err.Number <> 0 Then MsgBox Err.Description
    ' Libère la librairie
    FreeLibrary lLib
End Sub
 
' Désenregistre la librairie
Private Sub FnUnregLib()
    Dim lLib As Long        ' Identifiant de la librairie
    Dim lCanUnload As Long  ' Pointeur de la fonction de test d'utilisation de la dll
    Dim lUnReg As Long      ' Pointeur de la fonction d'enregistrement
    ' Supprime la référence dans Access
    On Error Resume Next ' si la librairie n'est pas référencée on essaye quand même de la désenregistrer
    Application.References.Remove Application.References.Item("MouseWheelDVP")
    On Error GoTo Gestion_Erreurs
    ' Charge la librarie
    lLib = LoadLibrary(ApplicationPath & "MouseWheelDVP.dll")
    If lLib = 0 Then
        MsgBox "Impossible de trouver la librairie :" & vbCrLf & ApplicationPath & "MouseWheelDVP.dll"
        Exit Sub
    End If
    ' Vérifie que la librairie n'est pas en cours d'utilisation
    If DVPDllCanUnloadNow <> 0 Then
        MsgBox "Impossible de déréférencer la librairie maintenant" & _
               vbCrLf & "Quittez les formulaires utilisant la librairie"
        GoTo Gestion_Erreurs
    End If
    ' Désenregistre la librairie (elle disparaît alors de la liste des références)
    If DVPDllUnregisterServer <> 0 Then
        MsgBox "Erreur lors du référencement de la librairie"
    End If
Gestion_Erreurs:
    If Err.Number <> 0 Then MsgBox Err.Description
    ' Libère la librairie
    FreeLibrary lLib
End Sub
 
' Récupère le chemin de l'application (chemin long)
' (pour remplacer CurrentProject.Path dans Access 97)
Public Function ApplicationPath() As String
    Dim lRet As Long
    Dim lShortPathName As String
    Dim lLongPathName As String
    lLongPathName = Space(1024)
    lShortPathName = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))
    lRet = GetLongPathName(lShortPathName, lLongPathName, Len(lLongPathName))
    ApplicationPath = Left(lLongPathName, lRet)
End Function

mais à la compilation de ce code ce message apparaît :
"Type défini par l'utilisateur non défini"

Qu'en pensez-vous ?
Merci

**mout1234** · 28/05/2007, 17h27

Envoyé par alainGL

"Type défini par l'utilisateur non défini"
Qu'en pensez-vous ?

J'en pense que ... le "compilateur" te montre la ligne qui lui pose problème. non?

**alainGL** · 28/05/2007, 17h35

Merci pour ta réponse,
non le compilateur ne me montre pas la ligne et c'est là le hic

**mout1234** · 28/05/2007, 17h57

Envoyé par alainGL

Merci pour ta réponse,
non le compilateur ne me montre pas la ligne et c'est là le hic

En l'état je ne vois pas comment on pourrait deviner où est ton problème

Quant tu dis

Envoyé par alainGL

mais à la compilation de ce code ce message apparaît :
"Type défini par l'utilisateur non défini"

je suppose que tu fais Appel à la commande Débogage /Compiler.... Normalement, lorsque la fenetre apparait; il sélectionne en arrière plan le code posant probleme.

**javelot69** · 29/05/2007, 00h06

Bonsoir,

Décidément la neutralisation de la molette de la souris fait chauffer les claviers en ce moment !

Plusieurs post sur ce sujet la semaine dernière auxquels j'ai répondu en donnant le lien vers un autre tuto écrit par Arkham46 ; il s'agit d'une autre dll plus simple à utiliser et ne nécessitant pas de référencement.

http://arkham46.developpez.com/artic...usewheelnoreg/

Ceux qui l'ont testé en redemandent ; à utiliser sans modération !

Bonne continuation.

**alainGL** · 29/05/2007, 10h49

Merci à tous de m'avoir aidé à résoudre ce problème de roulette. Le site d'Arkham46 est vraiment génial

Bonne journée

**Herman** · 29/05/2007, 16h45

Y'a un petit soucis de lien là :s

**alyphe** · 30/05/2007, 09h23

Bonjour!

MouseWheelDVP.dll est génial et je l'utilise depuis pas mal de temps. Sauf qu'hier, je suis passé sur l'OS vista. et là pas moyen d'enregistrer la dll...
pas compatible j'imagine.

Auriez-vous donc une alternative en tête pour que je puisse utiliser ma base de données aussi bien sur XP que sur Vista s'il-vous-plait?

**Arkham46** · 30/05/2007, 21h45

Envoyé par alyphe

Bonjour!

MouseWheelDVP.dll est génial et je l'utilise depuis pas mal de temps. Sauf qu'hier, je suis passé sur l'OS vista. et là pas moyen d'enregistrer la dll...
pas compatible j'imagine.

Auriez-vous donc une alternative en tête pour que je puisse utiliser ma base de données aussi bien sur XP que sur Vista s'il-vous-plait?

Bjr,

A priori ça marche sous Vista :
http://www.developpez.net/forums/sho...WheelDVP+vista

Personnellement je n'ai pas Vista, donc pas plus d'info.

**alyphe** · 01/06/2007, 13h38

En effet cela fonctionne très bien sous vista.

je ne savais pas qu'un compte utilisateur avec privilèges administrateur était différent du compte administrateur.
J'ai redémarré vista en MSE sur le vrai compte administrateur et là l'installation de la DLL n'a posé aucune résistance.

maintenant je me heurte à d'autres problêmes de compatibilité (mes boutons fonctionnent pas tous alors que tous mes events sont en vba, j'ai pas une seule macro) mais rien de bien ennuyeux

petite question au fait... si je venais à commercialiser ma base acces, vu qu'elle utilise cette DLL ça ne sera pas possible non?

**Arkham46** · 01/06/2007, 14h30

Envoyé par alyphe

petite question au fait... si je venais à commercialiser ma base acces, vu qu'elle utilise cette DLL ça ne sera pas possible non?

Quel est le sens de la question?
Si c'est un problème d'installation, alors il faut livrer un setup qui installe la librairie.
Si un problème de licence alors il n'y a pas de licence sur cette dll. Tu peux l'utiliser où tu veux.

Neutralisation de la roulette de la souris

IHM

Discussions similaires

Partager

Partager