dcsimg
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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Jun 30, 2001

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


ButtonDown, ButtonUp, MouseClick, MouseDblClick - Simulate mouse activity

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
    ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, _
    ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

'simulate the MouseDown event

Private Sub ButtonDown(Optional ByVal Button As MouseButtonConstants = _
    vbLeftButton)
    Dim lFlag As Long
    If Button = vbLeftButton Then
        lFlag = MOUSEEVENTF_LEFTDOWN
    ElseIf Button = vbMiddleButton Then
        lFlag = MOUSEEVENTF_MIDDLEDOWN
    ElseIf Button = vbRightButton Then
        lFlag = MOUSEEVENTF_RIGHTDOWN
    End If
    mouse_event lFlag, 0, 0, 0, 0
End Sub

'simulate the MouseUp event

Private Sub ButtonUp(Optional ByVal Button As MouseButtonConstants = _
    vbLeftButton)
    Dim lFlag As Long
    If Button = vbLeftButton Then
        lFlag = MOUSEEVENTF_LEFTUP
    ElseIf Button = vbMiddleButton Then
        lFlag = MOUSEEVENTF_MIDDLEUP
    ElseIf Button = vbRightButton Then
        lFlag = MOUSEEVENTF_RIGHTUP
    End If
    mouse_event lFlag, 0, 0, 0, 0
End Sub

'simulate the MouseClick event

Private Sub ButtonClick(Optional ByVal Button As MouseButtonConstants = _
    vbLeftButton)
    ButtonDown Button
    ButtonUp Button
End Sub

'simulate the MouseDblClick event

Private Sub ButtonDblClick(Optional ByVal Button As MouseButtonConstants = _
    vbLeftButton)
    ButtonClick Button
    ButtonClick Button
End Sub
Marco Bellinaso
 
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