![]() |
|
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
|
|
|
|
|
|
|
|
|
|
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: [ 928 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 