要求:窗体上有一个复选框控件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
不是这个问题,已经解决了.
是的,那要想达到我的那个要求,应该怎样更改呢?前提是不能增加其它控件,就用那个复选框控件.
追答你想啥时候退出呢?总得有条件吧?
追问点击控件(即被选中)时执行循环,再次点击控件(即未被选中)时退出循环.