devxlogo

GetDoubleClickInfo – Retrieve double-click rectangle and timeout

GetDoubleClickInfo – Retrieve double-click rectangle and timeout

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _    As LongPrivate Declare Function GetDoubleClickTime Lib "user32" () As LongConst SM_CXDOUBLECLK = 36Const SM_CYDOUBLECLK = 37' retrieve info about the double-click area, and the' time within which the user must click the mouse button' again to be considered a double-clicl'' WIDTH and HEIGHT are the size (in pixels) of the rectangle' inside which the second click must occur - default is 4 pixels' TIMEOUT is the timeout (in milliseconds) - default is 500 milliseconds.'' Usage:'   Dim wi As Long, he As Long, ti As Long'   GetDoubleClickInfo wi, he, ti'   Print "Width=" & wi & ", Height=" & he & ", Timeout=" & tiSub GetDoubleClickInfo(Width As Long, Height As Long, Timeout As Long)    ' use GetSystemMetrics to retrieve the rectangle size    Width = GetSystemMetrics(SM_CXDOUBLECLK)    Height = GetSystemMetrics(SM_CYDOUBLECLK)    ' use GetDoubleClickTime to retrieve the timeout    Timeout = GetDoubleClickTime()End Sub

devx-admin

Share the Post: