MouseUp被DoubleClick中断

Question

我试图在点击一个帧时模仿一些动画

Private Sub frameGo_MouseDown ...
frameGo.Top = frameGo.Top - 2

Private Sub frameGo_MouseUp ...
frameGo.Top = frameGo.Top + 2

但是在doubleClik框架上会持续上升，而不会回到原来的最高值 我该如何防止这种情况？

Answer 1

取消活动中的DblClick操作

Private Sub frameGo_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
End Sub