Dim running As Boolean Sub xx() Dim i% For i = 1 To 1000 '处理和调用 If running = False Then Exit For Next End Sub
Private Sub Command1_Click() Me.Timer1.Enabled = True End Sub Private Sub Timer1_Timer() For i = 1 To 1000 '..... Next End Sub
[此贴子已经被作者于2015-10-30 09:59编辑过]
[此贴子已经被作者于2015-11-2 09:52编辑过]