关于VB中DoEvents的使用问题，我写了以下程序：请教各位大虾，该怎样改才能让它停下来

来源：百度知道 编辑：UC知道 时间：2024/06/28 07:44:12
程序：Private Sub Check6_Click()

Static exit1 As Boolean
If Check6.Value = 1 Then
exit1 = True
Do While exit1
CmdSend_Click
DoEvents
Loop
exit1 = False

Else
exit1 = False
End If
End Sub

以上是我写的程序，可是运行的时候Check6选中以后就再也点不了了，程序也停不了，除非按结束执行程序，不知道是怎么回事，希望高人给以指点

Do While exit1
CmdSend_Click
DoEvents
Loop

你需要在Do while .. loop这个循环之间的一定条件下改变exit1的值为False，不然的话，由于exit1一直为True，所以此循环会一直执行，形成死循环，也就是说你的程序就没有办法进行其它的操作了。