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: VB5,VB6
Expertise: Intermediate
Jun 30, 2001

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