Question

vb 用一个过程去结束另一个过程

例：
private sub command1_click()
for i= 1 to 100000
***
next
print ***
end sub
-----------------
private sub command2_click()
????
end sub
欲在第二个过程中结束第一个过程（或第一个过程中的for循环），并仍然执行第一个过程中的“print”语句，且for循环保留其已经执行的部分所记录的数据，即第一个过程for循环中“***”处所执行的代码。试问如何才能实现？

Answer 1

Dim I       As Long
Dim Flag    As Boolean

Private Sub Command1_Click()
    Dim N   As Long
    N = I + 1
    For I = N To 10000000
        S = I
        DoEvents
        If Flag Then
            Flag = False
            Exit For
        End If
    Next
    Print S
End Sub

Private Sub Command2_Click()
    Flag = True
End Sub

追问

很感谢你的回答！我设了一个全局变量，但没意识到第一个过程是停留在for循环里，而不是for循环之外子过程之中，所以将对这个全局变量的判断放错了位置，所以一直纠结了……鉴于马太效应，我还是不采用你的了！

Answer 2

生命全局变量X
dim x as integer

private sub command1_click()
dim i as integer
dim Y as integer
x=1
for i= 1 to 100000
y=***
if x=2 then exit next
next
print ***
end sub
'-----------------
private sub command2_click()
x=2
end sub

Answer 3

这个很简单啊，你在通用部分设置一个变量flag，当flag=1的时候for循环，可以执行，当你点击command2时候，flag=0，此时退出for循环。我也是刚刚才学会的呢。

追问

嗯，是这样的，我只是突然没想到

追答

我还怕我说不清楚呢，你想到就好。

Answer 4

定义全局变量 A
在第一各种判断 A 然后根据需要来退出循环

在第二个过程中 更改全局变量的 值

但是 VB 本身 类似于 单进程的 你这样 我很怀疑 程序的可用性

你可以尝试使用 多进程

追问

这位回答的比较深……