Rubrik: Maus & Tastatur · Maus | VB-Versionen: VB4, VB5, VB6 | 03.02.01 |
Anzahl der Maustasten ermitteln Hier wird gezeigt, wie Sie per VB-Code feststellen können, wieviele Buttons die verwendete Maus besitzt. | ||
Autor: Dieter Otter | Bewertung: | Views: 13.885 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Um festzustellen, wieviele Buttons die verwendete Maus besitzt, verwenden Sie einfach nachfolgende Routine.
' zunächst die benötigte API-Funktion Public Declare Function GetSystemMetrics Lib "user32" ( _ ByVal nIndex As Long) As Long Public Const SM_CMOUSEBUTTONS = 43 ' Anzahl Mausbuttons MsgBox "Die verwendete Maus hat " & _ Format$(GetSystemMetrics(SM_CMOUSEBUTTONS)) & _ " Buttons."