Kann man in einem Formular die Funktion des Mausrads abschalten?

Ja, allerdings braucht das etwas Vorbereitung.

Am besten benutzt man dafür die bereits von Günter Kramer erstellte MouseWheel.DLL

  1. Speichern Sie die DLL in ein beliebiges Verzeichnis
  2. Registrieren Sie diese DLL im Windows über das Kommando regsvr32 ...\MouseWheel.dll (dazu sind Admin-Rechte erforderlich)
  3. Erstellen bzw. Aktualisieren Sie den Verweis in Ihrer Datenbank, rufen Sie dazu den VBA-Editor auf - Extras - Verweise
  4. Binden Sie folgenden VBA-Code beim Ereignis Load bzw. Close des jeweiligen Formulars ein:

Option Compare Database
Option Explicit

Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

Private Sub Form_Load()
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub

Private Sub Form_Close()
   clsMouseWheel.SubClassUnHookForm
   Set clsMouseWheel.Form = Nothing
   Set clsMouseWheel = Nothing
End Sub

Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    Cancel = True
End Sub

-- KerstinSchiebel - 20 Sep 2007
Topic attachments
I Attachment Action Size Date Who Comment
MouseWheel.dlldll MouseWheel.dll manage 24.0 K 2007-09-20 - 14:13 KerstinSchiebel DLL zum Abschalten des Mausrads
Readme.txttxt Readme.txt manage 1.3 K 2007-09-20 - 14:13 KerstinSchiebel ReadMe für MouseWheel.DLL
Topic revision: r2 - 2007-09-26, KerstinSchiebel
 
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding GSI Wiki? Send feedback
Imprint (in German)
Privacy Policy (in German)