Question

VB怎样跳出Do While……Loop 循环??请大家指导下.

要求:窗体上有一个复选框控件chkAutoTest,点击控件(即被选中)时执行循环语句,再次点击控件(即未被选中)时退出循环.
我这个VB程序怎么退不出循环呢,循环时点chkAutoTest_Click没有反应啊,退不出??
VB代码如下:
Dim LoopFlag As Byte
Private Sub chkAutoTest_Click()
If chkAutoTest.Value = 1 Then
LoopFlag = 1
Else
LoopFlag = 0
End If
　 Do While LoopFlag = 1
　 TimeDelay (1000) ‘延时1s函数
　 DoEvents
　 If LoopFlag = 0 Then
Exit Do
　 End If
Loop
End Sub

Answer 1

TimeDelay 代码呢？TimeDelay 里面也加DoEvents
然后试试我下面这个
If chkAutoTest.Value = 1 Then
Do While chkAutoTest.Value = 1
TimeDelay (1000) '延时1s函数
DoEvents
Loop
End If
我测试的时候把TimeDelay (1000)注释了。点不了控件，要用空格来取消或者Tab键切换到空间按空格取消~

追问

不是这个问题,已经解决了.

Answer 2

Do While LoopFlag = 1
　 TimeDelay (1000) ‘延时1s函数
　 DoEvents
　 If LoopFlag = 0 Then
Exit Do
　 End If
一直在这里循环， LOOPFLAG 永远不会变为 0

Answer 3

你这是个死循环
因为循环体内你并没有改变LoopFlag

追问

是的,那要想达到我的那个要求,应该怎样更改呢?前提是不能增加其它控件,就用那个复选框控件.

追答

你想啥时候退出呢？总得有条件吧？

追问

点击控件(即被选中)时执行循环,再次点击控件(即未被选中)时退出循环.

Answer 4

Do While LoopFlag = 1

Answer 5

最后怎么解决的，现在也碰到这个问题了