Ist ein Mausrad vorhanden? Dieser Tipp zeigt, wie man ermittelt, ob die angeschlossene Maus ein Mausrad hat.
Autor:   Microsys Kramer	Bewertung:     [ Jetzt bewerten ]	Views:  10.331
www.access-paradies.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 5 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser Tipp zeigt, wie man ermittelt, ob die angeschlossene Maus ein Mausrad besitzt.

Fügen Sie nachfolgenden Code in ein Modul ein:

Option Explicit
 
' Benötigte API-Deklarationen
Private Declare Function GetSystemMetrics Lib "user32" ( _
  ByVal nIndex As Long) As Long
 
Private Const SM_CMETRICS = 75

Public Function IstMausradVorhanden() As Boolean
  On Error GoTo Err_IstMausradVorhanden
  IstMausradVorhanden = CBool(GetSystemMetrics(SM_CMETRICS))
 
Exit_IstMausradVorhanden:
 Exit Function
 
Err_IstMausradVorhanden:
 Resume Exit_IstMausradVorhanden
End Function