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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.