VBA Excel Event Compile Error with MouseMove event on a command button

Question

I am trying to use the MouseMove event with a command button, but cannot figure out how to prevent the following error:

Compile error: Procedure declaration does not match description of event or procedure having the same name.

The code is very simple. I used "dummy" code here because I can never enter the event handler to get to something useful.

Private Sub Button_Name_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim X as Integer
  x = x+1
End Sub

I have taken the parameter list directly from the object browser. I get similar results with other events, including DblClick(), but not Click(). I think that I must be making some fundamental error, but have not been able to identify it. Help!

I think you are misunderstanding the event-driven programming aspect. The MouseMove event fires when you move the mouse. It's never called or assigned to a button. If you need something to happen when you press a button, put it in the button's click handler. — jonsca
– jonsca, Commented May 17, 2011 at 1:29

Codo · Accepted Answer · 2011-05-17 12:04:49Z

2

I don't quite understand why you have taken the parameter list directly from the object browser. If you have the code of your user form open in the VBA window, you can select the command button in the left drop down list just above the code and the MouseMove event in the right drop down list. Then the required code is inserted automatically. It will slightly differ from your code:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)

End Sub

The next error you will run into is a duplicate declaration of X. It's already a parameter of the subroutine. So you cannot reuse it within the subroutine.

With these two things fixed, the mouse move event will fire, even on a command button.

answered May 17, 2011 at 12:04

Codo

79.7k18 gold badges176 silver badges218 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Ripple_Rick Over a year ago

Thanks. Your answer was spot on. I took my original parameter list from the VBA Language Reference link which omitted the ByVal's. The X's were just dummy code, and were not in the "real" listing.

Jean-François Corbett · Accepted Answer · 2011-05-17 19:04:30Z

1

The error occurs because you have changed the default argument specification (you removed the ByVal). The proper argument specifications appears automatically if you select MouseMove from the top-right drop-down menu in the VBA editor (after having selected your command button in the top-left drop-down). The argument specification should not be changed, else it won't work. VBA expects this specific list of arguments and if it finds something different, it won't compile. (The only thing you can change is the name of the argument variables -- but nothing else.)

This works:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    X = X + 1 ' or whatever you need to do with X and Y
    MsgBox "MouseMove! " & X & " " & Y

End Sub

I have to admit, I find that using a MouseMove event on a command button is a rather peculiar thing to do -- but maybe you have your reasons? I'd sure like to hear them.

Also, as pointed out by @Codo, you shouldn't re-declare X inside the Sub. It's already been declared as an argument of the Sub, and you can use it straight away (e.g. X = X + 1 or whatever). You don't have to redeclare it using Dim -- in fact, doing so will give a compile-time error.

answered May 17, 2011 at 19:04

Jean-François Corbett

38.7k30 gold badges144 silver badges192 bronze badges

1 Comment

Ripple_Rick Over a year ago

Thanks. As mentioned above, adding the ByVal's corrected the problem. My original thought in using the MouseMove was to show a text box when an associated command button was moused over.

Collectives™ on Stack Overflow

VBA Excel Event Compile Error with MouseMove event on a command button

2 Answers 2

1 Comment

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related