Rubrik: Maus & Tastatur | 22.03.05 |
GetDoubleClickTime-Funktion Diese Funktion ermittelt die Zeit die vergehen darf, damit Windows einen zweifachen Mausklick als Doppelklick erkennt. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 9.879 |
Deklaration:
Declare Function GetDoubleClickTime Lib "user32.dll" () As Long
Beschreibung:
Diese Funktion ermittelt die Zeit die vergehen darf, damit Windows einen zweifachen Mausklick als Doppelklick erkennt.
Parameter:
keine |
Rückgabewert:
Die Funktion gibt die Millisekunden zurück, die maximal vergehen dürfen, damit Windows einen Doppelklick erkennt.
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