Tipp 0026 Anzahl der Maustasten ermitteln
Autor/Einsender:
Datum:
  Detlev Schubert
07.01.2001
Entwicklungsumgebung:   VB 5
Über die API-Funktion GetSystemMetrics liefert das Betriebssystem die Anzahl der Tasten über die die Maus des Benutzers verfügt. Dazu dient die Konstante SM_CMOUSEBUTTONS.
Hinweis
Liefert diese Funktion den Wert 0 zurück, ist keine Maus installiert.
 
Option Explicit
 
Private Declare Function GetSystemMetrics Lib "user32" (ByVal _
      nIndex As Long) As Long
 
Private Const SM_CMOUSEBUTTONS = 43
 
Dim Tastenzahl As Long
 
Private Sub Command1_Click()
  Tastenzahl = GetSystemMetrics(SM_CMOUSEBUTTONS)
  If Tastenzahl <> 0 Then
    MsgBox "Sie haben eine " & Tastenzahl & " Tasten Maus.", _
         vbInformation, "Info"
  Else
    MsgBox "Sie haben keine Maustreiber installiert.", _
         vbInformation, "Info"
  End If
End Sub
 
Weitere Links zum Thema
Mausklick simulieren
Position des Maus-Cursors ermitteln
Hinweis für VBA-Anwender
Der hier abgebildete Code funktioniert auch in einem VBA-Projekt, dieser muss dazu lediglich in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist nicht möglich.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (1,7 kB) Downloads bisher: [ 821 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 28. August 2011