如何检测鼠标释放

Question

我有一个激活动画的按钮。我想在释放点击时停止动画。我只有这个:

Private Sub AnimationButton_Click()
Call AnimationStart
End Sub

我试着搜索，但没有找到任何与按钮相关的内容。

Answer 1

如果你在表单上的事件列表中查找按钮，你会发现命令按钮的Mouse_Down和Mouse_Up。

在代码编辑器窗口的顶部，选择左侧下拉列表中的命令按钮，可用的事件在右侧下拉列表中。

当按钮被按下时，程序将收到Mouse_Down事件。然后一个计时器开始，如果它在拖放计时器到期之前被释放，你会得到一个鼠标向上事件，然后是一个点击事件。