Question

如何用vb实现 点击按钮即刻将循环停止

再点击按钮实现继续循环

Answer 1

Dim mStop As Boolean
'窗体的一个全局变量
Private Sub Command1_Click()
Do 'do...loop exit do 循环

DoEvents '防止循环假死
If mStop = True Then
'检查变量来停止循环
Exit Do
End If

Debug.Print Now

Loop
End Sub

Private Sub Command2_Click()

mStop = True
'变量设置 停止循环
End Sub

Answer 2

Option Explicit

Private Sub Command1_Click()
Command1.Enabled = False
Do
If Command1.Caption = "已暂停" Then
DoEvents
Else
DoEvents
'工作内容
End If
Loop While (1 = 1)
End Sub

Private Sub Command2_Click()
If Command1.Caption = "已暂停" Then Command1.Caption = "正在运行" Else Command1.Caption = "已暂停"
End Sub

Answer 3

private sub form_load()
flag=true
call xunhuan
end sub

private sub xunhuan()
do while flag=true
loop
end sub

private sub command1_click()
if command1.caption="stop" then
command1.caption="begin"
flag=false
else
commadn1.caption="stop"
flag=true
call xunhuan
end if
end sub

Answer 4

关键是这一句
DoEvents
反回控制权，这样就可以实现伪多线程了！