VB过程控制

怎么点击form2上的按钮 可以结束form1上正在进行的循环 

---

form1里面添加一个变量：
Public bEnd As Boolean

循环代码添加：
bEnd = False
Do
    ...
    If bEnd Then Exit Do
    DoEvents
Loop

另一个窗口：
frm1.bEnd = True

---

引用

form1里面添加一个变量：
Public bEnd As Boolean

循环代码添加：
bEnd = False
Do
    ...
    If bEnd Then Exit Do
    DoEvents
Loop

另一个窗口：
frm1.bEnd = True

应该可行,DoEvents很关键

---

要是for循环呢？

---

VB code:
Option Explicit
Dim bolExit As Boolean '退出循环的标志
Private Sub Command1_Click()
bolExit = False
Do
DoEvents '最好添加这个语句，防止程序假死
If Command1.Caption = "开始循环" Then Command1.Caption = "循环执行中..."
Loop Until bolExit
Command1.Caption = "开始循环"
End Sub

Private Sub Command2_Click()
bolExit = True
End Sub

Private Sub Form_Load()
Command1.Caption = "开始循环"
Command2.Caption = "结束循环"
End Sub

---

For 是一样的。

---

引用