急,如果我想用一个按钮让另外一个按钮里的循环终止,一定要用多线程吗??

Question

不是定时器,button1是循环发串口命令，想用button2来随时终止它！！
万谢！！！

Answer 1

在button1是循环发串口命令中加一个条件判断，button2时设那个条件为false....

Answer 2

在循环中，至少要有一句 DoEvents ，这个很重要…………

Answer 3

不用。借助一个公共变量就可以做到：Dim blnStop As BooleanPrivate Sub Command1_Click()
    blnStop = False
    Do Until blnStop
        '这里执行你的应用功能        DoEvents  '允许其它控件操作并检测系统消息
    Loop
End SubPrivate Sub Command2_Click()
    blnStop = True
End Sub

Answer 4

我用的是个for 循环b = 0
Dim i As IntegerFor i = 0 To 35If b = 1 Then Exit For
End If
Command1(i) = True
Next iPrivate Sub Command2_Click()b = 1End Sub
这里doevents怎么加进去呢？？？？？？？？？？

Answer 5

你这个可能来不及点第二个按钮就运行完了。Dim b As IntegerPrivate Sub Command1_Click()
Dim i As Integer
b = 0
For i = 0 To 35
DoEvents
If b = 1 Then Exit For
Command1(i) = True
Next i
End SubPrivate Sub Command2_Click()
b = 1
End Sub