[VBA] Désactiver la roulette de la souris sans DLL

**mat75019** · 04/05/2006, 17h25

Je voudrait désactiver la molette sur un formulaire, j'ai bien vu le sujet de la faq à ce sujet mais y aurait-il un autre moyen qu'ajouter cette reférence car mon outil sera multi postes et je me vois mal installer sur chaque poste la ddl ?
Exixte t-il une autre solution ?
Merci d'avance

**Tofalu** · 04/05/2006, 18h30

Non. Il y a aussi le tutoriel de arkkam http://access.developpez.com

Mais dans tous les cas y a une dll... et dans tout les cas, il faudra bien que tu installes ton appli sur tout les postes, alors autant inclure la dll dans le package non ?

**mat75019** · 05/05/2006, 09h59

Non l'appli sera sur le réseau, je ne l'installerais pas sur tout les postes. si j'ai éssayé de mettre la ddl dur le reseau mais ca marche pas...

**argyronet** · 05/05/2006, 10h11

Bonjour,

Envoyé par mat75019

Non l'appli sera sur le réseau, je ne l'installerais pas sur tout les postes. si j'ai éssayé de mettre la ddl dur le reseau mais ca marche pas...

Humm...
On ne met pas l'application sur un serveur mais la base de données ne contenant que les tables et une application frontale sur chaque poste, sous forme de MDE... qui ne contient que les forms, les requêtes, les états...

Tu n'as pas le choix...
Tu es obligé d'intaller l'application afin que le SETUP enregistre et installe correctement toutes les références et les composants nécessaires au bon fonctionnmenet de ton appli.

Argy

**GoldHofer** · 05/05/2006, 12h10

je vais rajouter encore un pb cette question:

j'ai mis en place le source dispo sur la FAQ, j'ai suivi toute la procédure d'installation de la dll, et voici le prob lors de l'ouverture du formulaire dans lequel je veux desactiver la molette :

Erreur 429 : un composant activeX ne peut pas creer d'objet

le debogueur m'indique cette ligne :
Set clMouseWHeel = New MouseWheelDVP.cMouseWheel

pour info, j'utilises access2000

pouvez vous m'aider SVP ?

**Arkham46** · 05/05/2006, 14h04

Envoyé par GoldHofer

je vais rajouter encore un pb cette question:

j'ai mis en place le source dispo sur la FAQ, j'ai suivi toute la procédure d'installation de la dll, et voici le prob lors de l'ouverture du formulaire dans lequel je veux desactiver la molette :

Erreur 429 : un composant activeX ne peut pas creer d'objet

le debogueur m'indique cette ligne :
Set clMouseWHeel = New MouseWheelDVP.cMouseWheel

pour info, j'utilises access2000

pouvez vous m'aider SVP ?

Peut-être un message séparé serait préférable, les réponses aux questions vont se croiser sinon...

Généralement quand il y a cette erreur la librairie n'est pas enregistrée correctement.

Essaye de l'enregistrer à la main en lancant la commande :
regsvr32.exe C:\....\MouseWheel.dll
dans Démarrer->Exécuter

Parfois en faisant comme ça on voit un message d'erreur qu'on ne voit pas en référençant dans Access.

**GoldHofer** · 05/05/2006, 14h20

Merci pour ta rep.

Voici l'erreur que cela me produit lorsque je fais l'install en manu :
(j'ai fait ce test avec deux types de DLL differentes notamment celle que tu as mis sur la FAQ (MouseWhellDVP.dll))

DllRegisterServer in c:\monchemin\MouseWhellDVP.dll failed
Return code was 0x80004005

Cela vous parle ??????

**Arkham46** · 05/05/2006, 14h48

Envoyé par GoldHofer

Merci pour ta rep.

Voici l'erreur que cela me produit lorsque je fais l'install en manu :
(j'ai fait ce test avec deux types de DLL differentes notamment celle que tu as mis sur la FAQ (MouseWhellDVP.dll))

DllRegisterServer in c:\monchemin\MouseWhellDVP.dll failed
Return code was 0x80004005

Cela vous parle ??????

Peut-être une piste, pour enregistrer un dll créée avec VB6 il faut le fichier
MSVBVM60.DLL. Sur certaine versions de windows (genre win98) il n'est pas là à l'installation, mais il doit être dans le runtime VB.

**GoldHofer** · 05/05/2006, 14h57

J'ai installé le runtime VB6 mais malheureusement RAS !

Cette DLL que tu viens de m'indiquer dois je l'installer en manu ou c'est deja fais via RT VB6 ???

Complément d'info : ma bécanne tourne sous Win2000Pro

**Arkham46** · 05/05/2006, 15h13

Envoyé par GoldHofer

J'ai installé le runtime VB6 mais malheureusement RAS !

Cette DLL que tu viens de m'indiquer dois je l'installer en manu ou c'est deja fais via RT VB6 ???

Complément d'info : ma bécanne tourne sous Win2000Pro

là je suis à court d'idée, à part tester sur un autre pc...

**GoldHofer** · 05/05/2006, 15h20

C 'est ce que je me disais, vu que la je suis dans ma boite, à mon avis l'adminatrateur du parc à peut verrouillé certaines choses.

Je vais emporter ca pour essayer mon pc à la maison !

En tout cas merci beaucoup Arkham c'est trés sympa ! je tiens au courant des évolutions de la chose

**argyronet** · 05/05/2006, 16h19

Cette DLL (MouseWheel.dll) doit être placée physiquement dans les dossier %WinSys32%.
Ensuite dans Outils/Références, sélectionner cette dernière depuis le bouton Parcourir...
Une fois cela fait, fait appel à la classe comme suit dans le Form_Load:

Code :

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

1
2
3
4
5
6
7
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
Private Sub Form_Load()
  Set clsMouseWheel = New MouseWheel.CMouseWheel
  Set clsMouseWheel.Form = Me
  clsMouseWheel.SubClassHookForm
End Sub

Puis dans le Form_Close:

Code :

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

1
2
3
4
5
Private Sub Form_Close()
    clsMouseWheel.SubClassUnHookForm
    Set clsMouseWheel.Form = Nothing
    Set clsMouseWheel = Nothing
End Sub

Et enfin sur l'événement MouseWheel...

Code :

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

1
2
3
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    Cancel = True
End Sub

C'est tout et ce pour chaque form concerné...

Pour l'enregistrer, il suffit de cliquer 2x dessus et de sélectionner REGSRV32.EXE comme programme pour l'ouvrir...

Argy

[VBA] Désactiver la roulette de la souris sans DLL

Access

Discussions similaires

Partager

Partager