SwapMouseButton-Funktion Diese Funktion vertauscht die Funktionen der linken und rechten Mausbuttons oder stellt diese wieder her.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  9.773

Deklaration:

Declare Function SwapMouseButton Lib "user32.dll" (ByVal bSwap As Long) As Long

Beschreibung:
Diese Funktion vertauscht die Funktionen der linken und rechten Mausbuttons oder stellt diese wieder her.

Parameter:

bSwap

Wird hier der Wert "0" übergeben, so wird die Standardeinstellung verwendet (Links = Klick, Rechts = Kontextmenü). DerWert "1" vertauscht die Mausbuttons (Links = Kontextmenü, Rechts = Klick).

Rückgabewert:
Ist die Funktion erfolgreich, so wird der Wert "1" zurückgegeben, andernfalls liefert die Funktion denWert "0".

Beispiel:

Private Declare Function GetDoubleClickTime Lib "user32.dll" () As Long
Private Declare Function SetDoubleClickTime Lib "user32.dll" ( _
  ByVal wCount  As Long) As Long
Private Declare Function SwapMouseButton Lib "user32.dll" ( _
  ByVal bSwap As Long) As Long
 
Dim OldDblKlickTime As Long

' Mauseigenschaften verändern
Private Sub Form_Load()
  Dim Retval As Long
 
  ' Aktuelle Doppelklickgeschwindigkeit ermitteln
  OldDblKlickTime = GetDoubleClickTime()
 
  ' Neue Doppelklickgeschwindigkeit setzen (die Hälfte)
  Retval = SetDoubleClickTime(OldDblKlickTime / 2)
 
  ' Mausbuttons vertauschen
  Retval = SwapMouseButton(1&)
End Sub

' Mauseigenschaften wiederherstellen
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim Retval As Long
 
  ' Alte Doppelklickgeschwindigkeit setzen
  Retval = SetDoubleClickTime(OldDblKlickTime)
 
  ' Mausbuttons auf Originalwert setzen
  Retval = SwapMouseButton(0&)
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.