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.715

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