Question

VB中的无限循环代码

我想让一个程序一按“开始”就无限执行一段代码，直到按下“停止”。怎么写？

Answer 1

Dim fStop As Boolean

Private Sub Command1_Click() '开始
Do
DoEvents
Loop Until fStop
End Sub

Private Sub Command2_Click() '停止
fStop = True
End Sub

追问

那里放我要循环的代码？

追答

Do和Loop之间，是无限循环的，除非fStop=True中断循环

追问

也就是说：
Dim fStop As Boolean

Private Sub Command1_Click() '开始
Do
此处加代码
Loop Until fStop
End Sub

Private Sub Command2_Click() '停止
fStop = True
End Sub

Answer 2

dim isLoop as boolean
form_load事件中：isLoop=true
开始事件：
while(isLoop)
'添加需要无限执行的一段代码
end While

停止事件
isLoop=false

追问

这很乱呀！请只写源码！

追答

我服你了。
dim isLoop as boolean
private Sub Form_Load()
isLoop=true
End Sub

你的开始按钮叫什么？就当是Command1
private Sub Command1_Click()
while(isLoop)
'添加需要无限执行的一段代码
end While

Private Sub Command2_Click() '停止事件
isLoop=false
End Sub

Answer 3

一个循环判断就够了
再在里面加个变量! 每次循环时检测变量值是否跳出
不过要加个线程,不然程序直接死在那了!

追问

代码说出来。

Answer 4

放到Timer组件里

追问

代码是什么？