Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
May 26, 2001

GetDoubleClickInfo - Retrieve double-click rectangle and timeout

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _
    As Long
Private Declare Function GetDoubleClickTime Lib "user32" () As Long
Const SM_CXDOUBLECLK = 36
Const 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=" & ti

Sub 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
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date