Why runs code twice in case of Mousedown event.

Hi,

I included an example to demonstrate what i mean.
Click on the button "Click on me" then a Userform will show up.
Right Click on a textbox. The message 'hello' appears. Why is the code triggered twice? How can I stop this. I want de message to appear only once.

Application.EnableEvents = false doesn 't help here.

I hope one of you can help.

Hi,

I included an example to demonstrate what i mean.
Click on the button "Click on me" then a Userform will show up.
Right Click on a textbox. The message 'hello' appears. Why is the codetriggered twice? How can I stop this. I want de message to appear only once.
Application.EnableEvents = false doesn 't help here.
I hope one of you can help.

stranno

Try to use MouseUp instead of MouseDown

No Userform or code in your workbook ?

There must be something 'special' about right Mouse Down like that

The event for left MouseDown only runs once.

Maybe you need to set a flag to avoid the double run

[VBA]
Option Explicit
Dim bAlreadyHaveOne As Boolean
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not bAlreadyHaveOne Then
If Button = 2 Then
MsgBox "Textbox1 Down"
bAlreadyHaveOne = True
End If
Else
bAlreadyHaveOne = False
End If
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not bAlreadyHaveOne Then
If Button = 2 Then
MsgBox "Textbox2 Down"
bAlreadyHaveOne = True
End If
Else
bAlreadyHaveOne = False
End If
End Sub
[/VBA]

Paul

Thanks guys,

Both solutions work well.
still it are workarounds.
I wonder why the MouseDown event works as it works.
Twice firing the event.
Once again, thanks for the response.

Stranno

What do you mean Rob342. There is an userform in the workbook

There is no VBA in the uploaded workbook

Quote:

---

Why is the codetriggered twice ?

---

Because the event has been triggered twice.
You will have to invent an equivalent for application.enableevents, because that doesn't work in Userform.

The most simple event_inteceptor:

[vba]Private sub Textbox1_change()
if textbox1.tag=" " then exit sub
textbox1.tag=" "
textbox1.Text="different"
textbox1.tag=""
End sub[/vba]

Mutatis mutandum for other events.

see http://vbaexpress.com/forum/showpost...10&postcount=5

Quote:

---

Because the event has been triggered twice.

---

Can you expand on that a little? I can see that it's triggered twice for a Right-MouseDown, but as far as I can tell, there's only one 'down' for the right mouse button.

Does work as expected for a Left MouseDown

Paul

@PH

I can only register what happens, as you did.
The event will be triggered twice (cheched using a breakpoint in the code)
The only guessed 'explanation' I can come up with is that right click has been designed to open (1 click) an options window, that also has to be closed (second) click as well. The closing of the options menu could be considered to be a second mouse event. (???)

If the discussion here is anything to go by then it is a known bug with the MouseDown event. And the "Paul_Hossler workaround" is the only workaround if you are bent on using it!

"Because the event has been triggered twice"
I know that. But do you know why the event is triggered twice?

Perhaps you could upload a workbook with the code / userform that you have?

Here 's the workbook (again)

"Known bug" I can understand

I was afraid that it was somehow by design and I was just too dense to figure it out

:think:

Thanks

Paul

Quote:

---

Originally Posted by Paul_Hossler

"Known bug" I can understand

I was afraid that it was somehow by design and I was just too dense to figure it out

:think:

Thanks

Paul

---

Initially I worked up the same routine until I re-read your reply. Then my mind started to give me thought bugs like:
We press the Mouse Down twice [irrespective of Left or Right button] i.e. Once when we right-click and second when we press "OK" button on the msgbox. The second event disregarding "the button we click".

As an alternative test, I used:
[VBA]Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Debug.Print Button
End Sub[/VBA]
Here I was sure, there was no second Mouse Down and yet it recorded 2 twice in the immediate window.

A bit of googling gave me the link I've posted.

Quote:

---

Mutatis mutandum for other events.

---

snb, cut to the chase and put this in english, so others can understand.