要求:窗体上有一个复选框控件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

这个很好啊，每次循环都判断那个复选框是不是选中，没有选中直接exit do不就好了？

但是有问题啊,循环时,你点那个复选框没有反应啊.因为进入了死循环,循环条件的值没有改变,永远为真.

Dim LoopFlag As Byte
Private Sub chkAutoTest_Click()
Do
 If chkAutoTest.Value = 1 Then
LoopFlag = 1
 Else
LoopFlag = 0
 End If
  TimeDelay (1000) ‘延时1s函数
 DoEvents
Loop While LoopFlag = 1
End Sub

嗯，说的有道理，单线程，遇到死循环，窗口就死了，确实点不了，不好意思

那你就要创建线程了

checkbox点击进入循环，因为代码没有执行完，不会再次响应CLICK事件，所以你再次点是没反应的
必须在别的地方改变LoopFlag标志