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 是一样的。

引用

VB过程控制

VB调用word后出现的问题

VB中关于密码认证

如何用VB做一个绘图程序

VB Timer控件