User Name Password Register
DaniWeb IT Discussion Community
All
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 426,173 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 1,877 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums
Views: 6062 | Replies: 2
Reply
Join Date: Mar 2007
Posts: 6
Reputation: IgniteTCS is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
IgniteTCS IgniteTCS is offline Offline
Newbie Poster

Simulate Mouse Click

  #1  
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.
AddThis Social Bookmark Button
Reply With Quote  
Join Date: Mar 2007
Posts: 6
Reputation: Gumster is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
Gumster Gumster is offline Offline
Newbie Poster

Re: Simulate Mouse Click

  #2  
Mar 21st, 2007
Im unsure if theres an easier way to do this but you could do this pretty simple with an API call

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)
}

simply changing the values of x and y will simulate a click.

Hope this helps if you want more help with how the API works run a google search on it
Reply With Quote  
Join Date: Mar 2007
Posts: 6
Reputation: IgniteTCS is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
IgniteTCS IgniteTCS is offline Offline
Newbie Poster

Re: Simulate Mouse Click

  #3  
Mar 22nd, 2007
thanks...
Reply With Quote  
Reply

Only community members can participate in forum threads. You must register or log in to contribute.

DaniWeb Visual Basic 4 / 5 / 6 Marketplace
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

 

Thread Tools Display Modes

Similar Threads
Other Threads in the Visual Basic 4 / 5 / 6 Forum

All times are GMT -4. The time now is 6:14 am.
Forum system based on vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
©2003 - 2008 DaniWeb® LLC