Rubrik: Maus & Tastatur · Maus | VB-Versionen: VB4, VB5, VB6 | 25.11.00 |
In der Systemsteuerung läßt sich bekanntlich die Doppelklick-Geschwindigkeit der Maus individuell verändern. Mit den entsprechenden Windows-API Funktionen können Sie die eingestellte Doppelklick-Geschwindigkeit auslesen und neu festlegen.
' Benötigte Deklarationen
Private Declare Function SetDoubleClickTime Lib "user32" ( _
ByVal wCount As Long) As Long
Private Declare Function GetDoubleClickTime Lib "user32" () As Long
' Ermitteln der eingestellten Doppelklick-Geschwindigkeit
Dim wCount As Long
wCount = GetDoubleClickTime()
' Ändern der eingestellten Doppelklick-Geschwindigkeit
' z.B. auf 250 MSek.
wCount = 250
SetDoubleClickTime wCount