谢谢各位的帮助,谢谢!!! 我的意思表达得不清楚,请各位帮助看看下面的trim里的代码如何写,谢谢!!! j=0 For i = 0 To 100 j=j+1 Timer1 '判断如果sendlong=False继续循环,如果sendlong=True暂停循环,等sendlong=False再继续循环 DoEvents Next i Private Sub Timer1_Timer() If sendlong = False Then '在这里for循环继续 End If If sendlong = True Then '在这里for循环暂停 End If End Sub
loop
loop
将aa置于ture的按钮不管用了
怎么办?
DoEvents
Doevent
wend
我的意思表达得不清楚,请各位帮助看看下面的trim里的代码如何写,谢谢!!!
j=0
For i = 0 To 100
j=j+1
Timer1 '判断如果sendlong=False继续循环,如果sendlong=True暂停循环,等sendlong=False再继续循环
DoEvents
Next i
Private Sub Timer1_Timer()
If sendlong = False Then
'在这里for循环继续
End If
If sendlong = True Then
'在这里for循环暂停
End If
End Sub
loop
......
.....
....
loop