events - 带有命令按钮上的MouseMove事件的VBA Excel事件编译错误

Question

我正在尝试通过命令按钮使用MouseMove事件，但是无法弄清楚如何防止以下错误:

编译错误:
过程声明与具有相同名称的事件或过程的描述不匹配。

代码很简单。我在这里使用了“虚拟”代码，因为我永远无法进入事件处理程序来获得有用的信息。

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

我直接从对象浏览器中获取了参数列表。我在其他事件(包括DblClick()，但没有Click())上得到了相似的结果。我认为我必须犯一些基本错误，但无法识别它。救命!

Answer 1

我不太明白为什么您直接从对象浏览器中获取参数列表。如果您在VBA窗口中打开了用户表单的代码，则可以在代码上方的左侧下拉列表中选择命令按钮，并在右侧的下拉列表中选择MouseMove事件。然后自动插入所需的代码。它将与您的代码略有不同:

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

End Sub

您将遇到的下一个错误是X的重复声明。它已经是子例程的参数。因此，您不能在子例程中重用它。

固定这两个问题后，即使在命令按钮上也将触发鼠标移动事件。