Question

VB6.0中如何实现按下COMMAND按钮不放3秒后,连续执行该命令按钮里代码!当放开按钮时,停止执行!

Answer 1

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 100
‘你要执行的代码
End Sub

Answer 2

去VB那边问我就能帮你做一下