Rubrik: Maus & Tastatur | 22.03.05 |
SetDoubleClickTime-Funktion Diese Funktion setzt die Zeit, die vergehen darf, bis Windows einen zweifachen Mausklick als Doppelklick erkennt. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 7.336 |
Deklaration:
Declare Function SetDoubleClickTime Lib "user32.dll" ( _ ByVal wCount As Long) As Long
Beschreibung:
Diese Funktion setzt die Zeit, die vergehen darf, bis Windows einen zweifachen Mausklick als Doppelklick erkennt.
Parameter:
wCount | Erwartet die maximale Anzahl an Millisekunden, die vergehen darf, bis Windows einen Doppelklick erkennt. |
Rückgabewert:
Ist die Funktion erfolgreich, so wird der Wert "1" zurückgegeben, andernfalls"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