MouseDown event constants

[djreiswig]

Anybody know what the constants are for the mouse buttons for the mousedown event on an activex textbox? According to the help file they should be:

fmButtonLeft
fmButtonRight
fmButtonMiddle

but these all show a value of empty. I tried changing the fm to xl with the same results. I know I can just use 1,2 or 4, but I like using the constants. It makes things easier to read.

 

[djreiswig]

Okay. Thanks for checking into that. I'll try your code.

Thanks

 

[SamTYler]

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.

Is it triggering the Control and the Form>Control? Try putting a dummy Sub in the UserForm

Private Sub UserForm1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Do nothing
End Sub

 

[djreiswig]

The textbox isn't on a userform, it is on a worksheet. The worksheet doesn't have a mousedown event.