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:  2.828

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