Ist eine Maus installiert? Mit der nachfolgenden Routine können Sie prüfen, ob eine Maus installiert ist oder nicht.
Autor:   Dieter Otter	Bewertung:	Views:  11.291
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit der nachfolgenden Routine können Sie prüfen, ob eine Maus installiert ist oder nicht.

' Zunächst alle benötigten API-Funktionen
Private Declare Function GetSystemMetrics Lib "user32" ( _
  ByVal nIndex As Long) As Long
 
' Existiert eine Maus wird True,
' andernfalls False zurückgegeben
Public Function MausExists() As Boolean
  Const SM_CMOUSEBUTTONS = 43
  MausExists = (GetSystemMetrics(SM_CMOUSEBUTTONS) > 0)
End Function

Beispiel:

Private Sub Form_Load()
  If Not MausExists() Then
    MsgBox "Es ist keine Maus installiert!"
  End If
End Sub

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.