[RESOLVED] emulate Mouse Click

[Hojo]

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

[dglienna]

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

[Hojo]

David,

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

Hojo

[Hojo]

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

eg.

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

Does this seem possible to anyone

Hojo

[dglienna]

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)

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

[StevenHickerson]

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.

[Hojo]

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

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

[dglienna]

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