MouseDown event constants

mikerickson

MrExcel MVP

Joined

Jan 15, 2007

Messages

24,355

• Jun 17, 2010

• #2

Have you tried xlNoButton, xlPrimaryButton and xlSecondaryButton ?

They return 0, 1, and 2 which is consistent with my testing the MouseDown event on a userform control.

 

Upvote 0

P

pgc01

MrExcel MVP

Joined

Apr 25, 2006

Messages

19,897

• Jun 17, 2010

• #3

Hi

Try:

vbKeyLButton
vbKeyRButton
vbKeyMButton

 

Upvote 0

D

djreiswig

Well-known Member

Joined

Mar 13, 2010

Messages

523

• Jun 17, 2010

• #4

I hadn't tried those constants, but I have an activex textbox on a sheet, and when I left click the button value is 1 and when I right click it is 2. I don't know what the middle button is, because my laptop doesn't have one. I guess it isn't a big deal, just strange that the help mentions 3 constants that apparently don't exist.

It also appears that the mousedown event fires twice. When I put code in to show a userform on a right click on the textbox, when I dismiss the form it reappears a second time. After I dismiss it again, it stays unloaded. If I put the code in the mouseup event then it only shows once. Strange.

 

Upvote 0

D

djreiswig

Well-known Member

Joined

Mar 13, 2010

Messages

523

• Jun 17, 2010

• #5

Sorry, the previous post was in reference to mikerickson.

pgc01, it appears that those are the constants I'm looking for. I wonder why they didn't list those in the help file?

Any ideas on the strange mousedown behavior?

 

Upvote 0

SamTYler

Well-known Member

Joined

Mar 10, 2004

Messages

784

• Jun 17, 2010

• #6

I thimk the events are MouseDown, BeforeMouseUp, and MouseUp.

 

Upvote 0

P

pgc01

MrExcel MVP

Joined

Apr 25, 2006

Messages

19,897

• Jun 17, 2010

• #7

djreiswig said:

Any ideas on the strange mousedown behavior?

Click to expand...

No, but I noticed it.

On workaround is to execute the code only every other time, when the right button is clicked.

Code:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Static bRightClick As Boolean
 
If Button = vbKeyRButton Then
    bRightClick = Not bRightClick
    If bRightClick Then Exit Sub
End If
 
' your code
 
End Sub

Not satisfactory, though. Maybe someone else explains this behaviour.

 

Upvote 0

D

djreiswig

Well-known Member

Joined

Mar 13, 2010

Messages

523

• Jun 17, 2010

• #8

I don't see a BeforeMouseUp event. I have MouseDown, MouseUp, and MouseMove.

 

Upvote 0

D

djreiswig

Well-known Member

Joined

Mar 13, 2010

Messages

523

• Jun 17, 2010

• #9

Good, I'm not the only one. If I put the code in the mouseup it works fine, but it is a little strange for the form to not show up until the button is released.

If you use the BeforeRightClick event on the sheet, the event is fired when the button is pressed down. I would like something similar to happen on the textbox, for a consistent function.

Your workaround should work, but I wonder if that variable could get off and mess things up so you have to click twice to make it work.

 

Upvote 0

P

pgc01

MrExcel MVP

Joined

Apr 25, 2006

Messages

19,897

• Jun 18, 2010

• #10

Hi

Just as a confirmation, I asked around and other mvp's, VoG, Rorya and Colin Legg, confirmed this odd behaviour of the right-click event firing twice. Also this is a known bug, that affects not only textboxes but also other activeX controls, like comboboxes, etc.

This means that you must use a workaround like the one I posted that only allows the code to execute every other time.

 

Upvote 0