I. Introduction▲
Utiliser la roulette de la souris dans un formulaire entraîne un changement d'enregistrement qui peut être indésirable.
En effet un utilisateur peut s'attendre à faire défiler le formulaire vers le bas, mais l'action sur la roulette de la souris passe à l'enregistrement suivant.
Cela peut être agaçant, voir très problématique car l'enregistrement est validé alors que l'utilisateur ne le souhaitait pas.
Pour pallier ce comportement on peut utiliser une librairie développée en C++.
Cette librairie est une dll simple qui ne nécessite pas d'être enregistrée.
Merci à Kikof, Dolphy35 et Tofalu pour leur aide.
II. Compatibilité▲
Cette librairie a été testée avec les configurations suivantes :
- Access 97 / Windows 2000 Pro
- Access 97 / Windows XP Pro
- Access 2000 / Windows 98
- Access 2002 / Window XP Pro
- Access 2003 / Windows XP Home
III. MouseWhellDVP VS MouseWhellDVPNoReg▲
Vous pouvez également trouver ici
une libraire ActiveX (MouseWhellDVP) développée à l'aide de VB6.
Cette librairie permet d'ajouter un événement au formulaire, mais par contre elle nécessite d'être enregistrée.
La librairie de cette article (MouseWheelDVPNoReg) facilite le déploiement :
Il suffit de mettre la librairie dans le répertoire système pour qu'elle fonctionne.
(On peut également mettre la librairie dans un autre répertoire moyennant quelques lignes de code supplémentaires).
Il ne faut pas la référencer dans le menu Outils --> Références.
En contrepartie, on ne peut pas programmer de comportement spécifique dans Access. Dans ce cas, il faut programmer au préalable dans la librairie en C++.
(le blocage de la roulette et le défilement vertical du formulaire sont déjà programmés dans cette librairie).
IV. Licence d'utilisation▲
La librairie MouseWheelDVPNoReg.dll est développée et compilée avec Microsoft Visual C++ 2005 Express Edition
4. Can I use Express Editions for commercial use?
Yes, there are no licensing restrictions for applications built using the Express Editions.
Elle peut donc être utilisée gratuitement dans vos projets personnels ou professionnels.
V. Comment utiliser la librairie▲
V-A. Avec la librairie dans le répertoire système▲
Copiez le fichier MouseWheelDVPNoReg.dll dans le répertoire système de chaque PC.
(le plus souvent c'est le répertoire : C:\Windows\System32)
Ajoutez ensuite dans le module du formulaire les déclarations des procédures de la librairie.
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)Pour bloquer la roulette, appelez la fonction MouseWheelHook avec comme paramètres :
- pHwnd : l'identifiant du formulaire = Me.Hwnd
- pScrollForm : Permet de faire défiler le formulaire verticalement avec la roulette de la souris tout en empêchant le changement d'enregistrement.
(Utile lorsqu'un formulaire en mode simple est plus haut que l'écran)
MouseWheelHook Me.Hwnd, FalseMouseWheelHook Me.Hwnd, True
Pour débloquer la roulette empêchant le changement d'enregistrement,, appelez la fonction MouseWheelUnHook avec comme paramètre :
- pHwnd : l'identifiant du formulaire = Me.Hwnd
MouseWheelUnHook Me.HwndRemarque : Il n'est pas nécessaire de débloquer la roulette à la fermeture du formulaire.
V-B. Avec la librairie dans un répertoire quelconque▲
Copiez le fichier MouseWheelDVPNoReg.dll sur chaque PC.
Ajoutez ensuite dans le module du formulaire les déclarations des procédures de la librairie.
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)
Puis la déclaration de l'API permettant le chargement de la librairie à partir d'un répertoire quelconque.
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Appelez ensuite les fonctions MouseWheelHook et MouseWheelUnHook comme précédemment, en ajoutant
au préalable un appel à la fonction de chargement de la librairie en précisant le chemin du fichier.
Un seul appel à la fonction LoadLibrary est nécessaire pour toute l'application Access.
LoadLibrary CurrentProject.Path & "\MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, FalseLoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & _
"\MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, FalseV-C. Exemple : blocage de la roulette avec la librairie dans le répertoire de l'application▲
Voici le code à mettre dans le module d'un formulaire pour bloquer la roulette de la souris.
Le blocage se fait à l'événement Sur chargement du formulaire.
La librairie MouseWheelDVP.dll est dans le même répertoire que le fichier Access.
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
Private Sub Form_Load()
LoadLibrary Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & _
"\MouseWheelDVPNoReg.dll"
MouseWheelHook Me.Hwnd, False
End Sub