Question

VB 无限循环

点按钮1 无限循环开始，点按钮2 循环结束
这个怎么实现？
主要是按钮2结束循环

Answer 1

Dim ExitLoop As Boolean

Private Sub Command1_Click()
ExitLoop = False
Do
If ExitLoop Then Exit Sub
DoEvents
If Me.BackColor = 0 Then Me.BackColor = vbRed Else Me.BackColor = 0
Loop
End Sub

Private Sub Command2_Click()
ExitLoop = True
End Sub

Answer 2

Dim A as Boolean
Private Sub Command1_Click
Do
Doevents
Cls
Print Timer
Loop While A=False
End Sub

Private Sub Command2_Click
A=Not A
End Sub

Answer 3

do
循环内容..
while true