如何检测鼠标释放

Question

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

Private Sub AnimationButton_Click()
    Call AnimationStart
End Sub

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

Answer 1

如果您查看表单上按钮的事件列表，您会发现 Mouse_Down 和 Mouse_Up 命令按钮。

在代码编辑器的顶部 window select 您的命令按钮位于左侧下拉列表中，可用事件位于右侧下拉列表中。

当按下按钮时，程序将接收到 Mouse_Down 事件。然后一个计时器启动，如果它在拖动计时器到期之前被释放，您将获得一个鼠标松开事件，然后是一个点击事件。