# Re: 请问小吴如何"立刻"中断无穷回圈?

Posted by 小吴 on March 18, 1999 at 08:36:18:

In Reply to: 请问小吴如何"立刻"中断无穷回圈? posted by yeong huann on March 17, 1999 at 23:54:52:

由于 VB 本身是 single-thread 的架构，所以如果你只有一个无穷回圈要中断，则你可以使用 DoEvents 这个指令。

=== Standard Module A.bas ===
Public gblnQuit As Boolean

gblnQuit = False
Do
DoEvents
Loop Until gblnQuit

=== Form Module B.frm ===
Private Sub cmdCancel_Click ()
gblnQuit = True
End Sub

如果你的程式有超过一个无穷回圈，那你必须透过 3rd party 元件或是自行呼叫相关 API 让 VB 变为 multi-thread 的程式，然后才能去停掉产生无穷回圈的 thread。

Follow Ups: