DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Simulate Mouse Click

•

Join Date: Mar 2007

Posts: 6

Reputation: IgniteTCS is an unknown quantity at this point

Solved Threads: 0

IgniteTCS

Offline

Newbie Poster

Simulate Mouse Click

Mar 21st, 2007

I am working on a project where I need to open a .pps file using Visual Basic 6 (which I have done already). I need to change the slide transition according to input obtained from a serial port that will keep changing during the execution of the VB project. Please assist me on this.

As the mouse click will proceed to the next slide in the slideshow, I would like to know if there is a way to simulate this mouse click and hence indirectly alter the slide transition timing. Please help me.

•

Join Date: Mar 2007

Posts: 6

Reputation: Gumster is an unknown quantity at this point

Solved Threads: 0

Gumster

Offline

Newbie Poster

Re: Simulate Mouse Click

Mar 21st, 2007

Im unsure if theres an easier way to do this but you could do this pretty simple with an API call

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Declare Auto Function mouse_event Lib "user32.dll" (ByVal dwflags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer) As Integer
 
Const MOUSEEVENTF_LEFTDOWN as Integer = 2
Const MOUSEEVENTF_LEFTUP as Integer = 4
Const MOUSEEVENTF_RIGHTDOWN as Integer = 8
Const MOUSEEVENTF_RIGHTUP as Integer = 16Public Shared Sub MouseClick()
{
    Dim x As Integer = 100
    Dim y As Integer = 100;
     mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0)
}
Declare Auto Function mouse_event Lib "user32.dll" (ByVal dwflags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer) As Integer

Const MOUSEEVENTF_LEFTDOWN as Integer = 2
Const MOUSEEVENTF_LEFTUP as Integer = 4
Const MOUSEEVENTF_RIGHTDOWN as Integer = 8
Const MOUSEEVENTF_RIGHTUP as Integer = 16Public Shared Sub MouseClick()
{
    Dim x As Integer = 100
    Dim y As Integer = 100;
     mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0)
}