[RESOLVED] emulate Mouse Click

Hello All,

Is there a way to code a mouse click. That is provoke the events that happen when you click on a control with out physically clicking on it.

I have a toggle button that can be "toggled" by the user and the button indents when "on" and is proud when "off".

If i code for the button to be pressed "togglebutton1_click()" then code executes but the button doesnt change its physical State.

Thanks everyone

Hojo

You can use a checkbox, set to graphical mode, that looks like a command button, but can be toggled.

David,

I have a toggle button but want it to toggle without clicking on it with the mouse

Hojo

I'm thinking setting focus to control then somthing LIKE SendKeys but sending the left mouse button.

eg.

VB Code:

Togglebutton1.setFocus
Sendkeys (leftmousebutton) ' Whatever that would be

Does this seem possible to anyone

Hojo

Add a checkbox, and set its style to Graphical. Then add this to where you want to toggle it. (I am using a command button)

VB Code:

Option Explicit
 
Private Sub Command1_Click()
  Check1.Value = 1 - Check1.Value
End Sub

If you really want to emulate a mouse click...

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

See
http://www.mentalis.org/apilist/mouse_event.shtml
For further details and an example.

Thankyou David & Steven

Sorry David, I didn't totally get what you were saying the first time but this works like a charm. Except i'll be using

VB Code:

Check1.value = 0 ' for off
 
'Or
 
Check1.value = 1 ' for on

Because that works better logically for this specific program.

Thankyou also Steven for the simplicity of this program i won't used your method but its good to know for the future.

Thanks again guys.

Cheers Hojo :thumb:

It's an old formula

1 - 1 = 0
1 - 0 = 1

so

1 - x = NOT X

You can't use NOT Check.value as a checkbox can be -1, 0, or 1