[VBA程序]：如何通过按一个命令按钮事件来退出do循环？

god

请教一个问题

一个do...loop循环中，可在内部设置exit do语句退出循环，如果要通过按一个命令按钮事件来退出do循环，应该怎么做？

发现一篇文章，用的是doevents语句

2. 
   
3. VB6.0
   
4.     Windows98
   
5.     我要实现一个类似Windows复制(移动)文件时的提示窗体,耗时很长,且要求中断后能继续未完成的操作,不知使用DoEvents从长循环中跳出后,程序将从何处开始继续执行,是否是从DoEvents所在的Sub开始?(倔小孩)  
   
6.    
   
7.      事实上仅使用DoEvents，并不意味着从长循环中跳出。DoEvents只是允许用户选择其他按钮而已，不中断循环，不管用户如何操作，都继续执行DoEvents后面的语句，即使用户按下了中断按钮，你的循环仍然在继续，甚至你关闭了窗体，程序仍然继续在后台运行。正确的中断处理是这样的：
   
8.     1、建立一个全局或窗体变量bRun。
   
9.     2、在启动循环前设置bRun为True。
   
10.     bRun = True
    
11.     While bRun And (....)
    
12.      ....
    
13.      DoEvents
    
14.     Wend
    
15.     ...
    
16.     3、在中断按钮Click事件中加入代码：
    
17.     bRun = False
    
18.     4、在Form_Unload事件中加入代码：
    
19.     bRun = False
    
20.     这样一旦用户按下了中断按钮，bRun = False，循环的条件就不满足了，所以退出循环，执行后续语句。你也可以采用下面的方式：
    
21.     bRun = True
    
22.     While ....
    
23.      If Not bRun Then
    
24.      Exit Sub
    
25.      End If
    
26.      ....
    
27.      DoEvents
    
28.     Wend
    
29.     ...
    
30.      
    
31.     郭勇的意见：
    
32.     《解析 事件，Doevents,闲置循环和控时循环中的难点问题》
    
33.     Visualbasic6.0 代码
    
34.     copyright guoyong in cqums(2004-2-26)
    
35.     关键问题归于doevents 函数
    
36.     DoEvents函数的功能是：转让控制权，以便让操作系统处理其它的事件。
    
37.     问:为什么要用doevents?
    
38.      A.在需要用某一循环处理相当耗时或者很快速的代码时,就需要用到它,以便用户能在起处理过程中能做其他事情,即程序能被控制,而不是无响应状态
    
39.      B.vb6.0中多线程vb代码极度不稳定,而且无法调试,所以vb中的多线程用的很少(注:是指vb的代码在多线程中运行时不稳定)
    
40.      C.timer控件可以起到后台运行作用,但其是通过事件控制,一是不稳定,二是速度太慢,如果想用其处理高速又耗系统的代码更本不能达到预期的效果
    
41.      
    
42.     下面将其某些用法和难点简介如下:
    
43.      
    
44.     (注: '** 后面的代码表示如果在该处用了这个语句
    
45.     以下代码中用到了一些api函数,请用vb附带的api浏览器查阅)
    
46.      
    
47.     一. 基本用法:
    
48.     1.窗体启动时如果要处理的事务太多或者用sleep函数暂停,造成其很久都不能出现时怎么办?
    
49.     例如代码:
    
50.     Private Sub Form_Load()
    
51.     Show
    
52.     '**DoEvents
    
53.     Sleep 5000
    
54.     End Sub
    
55.     通常容易想到在sleep前加个show,但还是不能达到预想的效果,窗体虽然出来了,但好象只达到了一半,如果加上第3句,将看到效果大不相同
    
56.      
    
57.     2.如果有个很耗时的循环导致程序不响应,怎么办?
    
58.     例如:
    
59.     Dim L As Long
    
60.     For L = 1 To 1000000
    
61.     '** DoEvents
    
62.     Next L
    
63.     如果无'**,在循环过程中程序无法处理事件,对于用户来说是不响应,无法控制的
    
64.     3.想在循环中看到处理过程?
    
65.     同样:
    
66.     Dim L As Long
    
67.     For L = 1 To 10000
    
68.     '** DoEvents
    
69.     Text1.Text=Cstr(l)
    
70.     Next L
    
71.     无'** 时将无法看到text1中的变化,而只在循环结束时看到最后结果
    
72.     4.怎样中止循环?
    
73.     如果有:
    
74.     Private Sub Command3_Click()
    
75.     Dim L As Long
    
76.     Do
    
77.      L = L + 1
    
78.      Debug.Print L
    
79.      DoEvents
    
80.     Loop
    
81.     End Sub
    
82.     会发现当关闭窗口后,debug中的数据仍然在变化,说明并没结束
    
83.     需要如下:
    
84.     Dim IsExit As Boolean
    
85.     Private Sub Command1_Click()
    
86.     Dim L As Long
    
87.      IsExit = False
    
88.      Do While DoEvents
    
89.      If IsExit = True Then Exit Do
    
90.      L = L + 1
    
91.      Loop
    
92.      
    
93.     End Sub
    
94.      
    
95.     Private Sub Command2_Click()''或者在form_unload模块中等等
    
96.      IsExit = True
    
97.     End Sub
    
98.     其中 isexit是全局变量
    
99.     <>有些人喜欢用end语句来结束程序,小程序固然可以,但当太大,或者调用了某些特殊的api函数后可能导致预想不到的错误,如果装载了许多东西在程序结束时不处理将卸载很慢,而且这种做法也极不符合正规软件的要求...总之end语句毛病很多,此不详谈,建议少使用甚至不使用
    
100.      
     
101.     二. 其基本用法大概就这些,现在解析其中的一些[难点]
     
102.      
     
103.     1.为什么还是不能结束?
     
104.     代码如下:
     
105.     Dim IsExit As Boolean
     
106.     Private Sub Command1_Click()
     
107.     Dim L As Long
     
108.      IsExit = False
     
109.      Do
     
110.      If IsExit = True Then Exit Do '句0
     
111.      DoEvents '** 句1
     
112.      Text1.Text = CStr(L) '** 句2
     
113.      L = L + 1
     
114.      Loop
     
115.     End Sub
     
116.      
     
117.     Private Sub Form_Load()
     
118.     Static N As Long
     
119.     N = N + 1
     
120.     MsgBox N
     
121.     End Sub
     
122.      
     
123.     Private Sub Form_Unload(Cancel As Integer)
     
124.      IsExit = True
     
125.     End Sub
     
126.      
     
127.     运行结果:启动时msg显示1,点击command1,text1在变化
     
128.     此时再点form右上角的小差(关闭窗体),发现vb运行控制上的按扭并没变化,说明程序还在运行.如果编译成程序后运行,按下ctrl+del+alt也可发现它还没结束.
     
129.     通过读代码,并没发现错误，怎么回事?
     
130.      
     
131.     关键在于 句2 访问了控件的属性
     
132.     代码运行路径:当在doevents 时,程序释放控制权,可以接收事件消息,form-unload事件只能从此处产生,假设此时关闭form ,unload事件发生,即doevents后就运行unload代码,得到isexit=t,并且form卸载,代码返回到doevents 之后,运行 句2.注意现在form 已经卸载了,text1从哪里来呢?
     
133.     于是form重新装载,代码跳到form_load模块运行,所以在关闭窗体后可以看到msg 显示2,此模块运行完后再继续句2后面的代码,当下次循环遇到 句0时退出循环
     
134.     另:既然退出了循环,怎么还不能结束?
     
135.      vb程序规定(其实其他的windows语言一样):窗体卸载时并不是立即卸载其模块代码,而只先卸载窗体中的控件和一些属性值,程序中最后一个窗体卸载时才完全卸载.
     
136.     在这个单窗体程序中,form卸载时因为循环的控制无法卸载代码,失去了卸载代码的机会,导致再也不能卸载(因为没卸载代码,所以运行的 句2 是并不会出错)
     
137.     另:既然再次运行了form_load代码,怎么看不见窗体?
     
138.      因为程序启动时窗体的到显示的消息,而只运行此模块并没有(如果在msgbox n语句前加上show,就可以看到它了)
     
139.     如何解决?
     
140.     通过以上分析,应该很简单,把句1 和句2调换一下就可以了,关键:
     
141.     <仔细分析代码是如何运行的,避免在form已经卸载了情况下访问控件>
     
142.      
     
143.     2.用了doevents速度太慢了怎么办?
     
144.      doevents的代价是速度变慢,但要程序响应又不得不用
     
145.     其实doevents语句允许任何应用程序执行相关事件，而不仅仅是你自己的程序,所以变得很慢.
     
146.     可以让它响应本程序事件动作,需要用到api函数GetInputState
     
147.     例如用: If GetInputState() Then DoEvents '来代替doevents可使循环运行更快
     
148.      
     
149.     3.既要同时响应事件又要控件不变化,怎么办?
     
150.     例如在一个长的循环中向listview控件中添加记录,无doevents时程序无响应,但有它时控件又闪的厉害
     
151.     解决办法:a.不一定每次循环都doevents,可以在适当时间时才用,至少没那么闪
     
152.     b.应用api函数 ValidateRect 功能是使指定的矩型区域生效,通知Windows不对指定的区域进行重画 另:InvalidateRect 功能相反,同时需要用到函数 GetClientRect 取得指定对象的矩形区域 应用*rect函数指定listview的矩形区不重画,即可避免闪烁(但还是要注意恢复重画,否则看不见了真实效果)
     
153.      
     
154.     4.控时循环和变速齿轮
     
155.     请看下面的代码:
     
156.     Option Explicit
     
157.     Private Declare Function timeGetTime Lib "winmm.dll" () As Long
     
158.     Dim IsExit As Boolean
     
159.     Private Sub Command1_Click()
     
160.     Dim L As Long
     
161.     Dim Kt As Long
     
162.     IsExit = False
     
163.     Do
     
164.      Kt = timeGetTime()
     
165.      'do something
     
166.      L = L + 1
     
167.      Text1.Text = L
     
168.      'DoEvents '句 1
     
169.      While timeGetTime - Kt < 50 '句 2
     
170.      'While Abs(timeGetTime - Kt) < 50 '句 3
     
171.      'While Abs(timeGetTime - Kt) And (Not IsExit) < 50 '句 4
     
172.      
     
173.      DoEvents '句 5
     
174.      Wend
     
175.      'DoEvents '句 6
     
176.      If IsExit Then Exit Do
     
177.     Loop
     
178.     End Sub
     
179.      
     
180.     Private Sub Form_Unload(Cancel As Integer)
     
181.     IsExit = True
     
182.     End Sub
     
183.     其中可用的代码(除去加"'" 号的代码)就是通常的控时循环代码
     
184.     运行代码并不会出现错误,但在循环过程,请开启变速齿轮看看
     
185.     当关闭齿轮时,将发现text1.text停止了,别慌,等一段时间它又会继续(这要看你设定的时间,这里是50毫秒,如果设定的太长text1.text将半天都没变化,这是怎么回事?
     
186.      变速齿轮在启动时将hook.dll映射到你的程序地址运行,更改了timegettime()函数获取的时间
     
187.     如果在句2和句3间插入debug.print timegettime,timegettime-kt 将发现,在关闭齿轮的瞬间后者变成了负值,timegettime变小了,所以才造成需要等很久
     
188.     如果是编写游戏,而用户开了齿轮,那可就惨了
     
189.      
     
190.     解决方案:
     
191.     a.用句3代替句2,这个方法最简便,虽然不符实,但不会出问题,建议使用
     
192.     b.不要句5,换用句6(这样就能达到效果吗?) 因为齿轮还是从doevents语句运行时才能插的进来,所以只要kt=timegettime 和 timegettime之间没有doevents就不会出错
     
193.     ab.两种方法都有些小问题,但无大碍,有兴趣者请自己分析
     
194.      
     
195.     5.程序怎么"死了"?
     
196.     这只是一些人编写时没注意到的小问题,提醒一下:
     
197.     同样用上面的代码,如果设定的时间太短,以至在代码运行到句2时已经超时了,句5将不能运行了,当然程序就死了哦,以防万一,加上句1,所以此时也只能用a方案来解决齿轮的问题了
     
198.     有必要用句4代替句3 吗? 除非你设定的时间太长,人家想关闭你的程序要等上好半天
     
199.       
     
200. 
     
201. 
     

<br /> VB6.0 <br />     Windows98 <br />     我要实现一个类似Windows复制(移动)文件时的提示窗体,耗时很长,且要求中断后能继续未完成的操作,不知使用DoEvents从长循环中跳出后,程序将从何处开始继续执行,是否是从DoEvents所在的Sub开始?(倔小孩)  <br />     <br />      事实上仅使用DoEvents，并不意味着从长循环中跳出。DoEvents只是允许用户选择其他按钮而已，不中断循环，不管用户如何操作，都继续执行DoEvents后面的语句，即使用户按下了中断按钮，你的循环仍然在继续，甚至你关闭了窗体，程序仍然继续在后台运行。正确的中断处理是这样的： <br />     1、建立一个全局或窗体变量bRun。 <br />     2、在启动循环前设置bRun为True。 <br />     bRun = True <br />     While bRun And (....) <br />      .... <br />      DoEvents <br />     Wend <br />     ... <br />     3、在中断按钮Click事件中加入代码： <br />     bRun = False <br />     4、在Form_Unload事件中加入代码： <br />     bRun = False <br />     这样一旦用户按下了中断按钮，bRun = False，循环的条件就不满足了，所以退出循环，执行后续语句。你也可以采用下面的方式： <br />     bRun = True <br />     While .... <br />      If Not bRun Then <br />      Exit Sub <br />      End If <br />      .... <br />      DoEvents <br />     Wend <br />     ... <br />      <br />     郭勇的意见： <br />     《解析 事件，Doevents,闲置循环和控时循环中的难点问题》 <br />     Visualbasic6.0 代码 <br />     copyright guoyong in cqums(2004-2-26) <br />     关键问题归于doevents 函数 <br />     DoEvents函数的功能是：转让控制权，以便让操作系统处理其它的事件。 <br />     问:为什么要用doevents? <br />      A.在需要用某一循环处理相当耗时或者很快速的代码时,就需要用到它,以便用户能在起处理过程中能做其他事情,即程序能被控制,而不是无响应状态 <br />      B.vb6.0中多线程vb代码极度不稳定,而且无法调试,所以vb中的多线程用的很少(注:是指vb的代码在多线程中运行时不稳定) <br />      C.timer控件可以起到后台运行作用,但其是通过事件控制,一是不稳定,二是速度太慢,如果想用其处理高速又耗系统的代码更本不能达到预期的效果 <br />      <br />     下面将其某些用法和难点简介如下: <br />      <br />     (注: '** 后面的代码表示如果在该处用了这个语句 <br />     以下代码中用到了一些api函数,请用vb附带的api浏览器查阅) <br />      <br />     一. 基本用法: <br />     1.窗体启动时如果要处理的事务太多或者用sleep函数暂停,造成其很久都不能出现时怎么办? <br />     例如代码: <br />     Private Sub Form_Load() <br />     Show <br />     '**DoEvents <br />     Sleep 5000 <br />     End Sub <br />     通常容易想到在sleep前加个show,但还是不能达到预想的效果,窗体虽然出来了,但好象只达到了一半,如果加上第3句,将看到效果大不相同 <br />      <br />     2.如果有个很耗时的循环导致程序不响应,怎么办? <br />     例如: <br />     Dim L As Long <br />     For L = 1 To 1000000 <br />     '** DoEvents <br />     Next L <br />     如果无'**,在循环过程中程序无法处理事件,对于用户来说是不响应,无法控制的 <br />     3.想在循环中看到处理过程? <br />     同样: <br />     Dim L As Long <br />     For L = 1 To 10000 <br />     '** DoEvents <br />     Text1.Text=Cstr(l) <br />     Next L <br />     无'** 时将无法看到text1中的变化,而只在循环结束时看到最后结果 <br />     4.怎样中止循环? <br />     如果有: <br />     Private Sub Command3_Click() <br />     Dim L As Long <br />     Do <br />      L = L + 1 <br />      Debug.Print L <br />      DoEvents <br />     Loop <br />     End Sub <br />     会发现当关闭窗口后,debug中的数据仍然在变化,说明并没结束 <br />     需要如下: <br />     Dim IsExit As Boolean <br />     Private Sub Command1_Click() <br />     Dim L As Long <br />      IsExit = False <br />      Do While DoEvents <br />      If IsExit = True Then Exit Do <br />      L = L + 1 <br />      Loop <br />      <br />     End Sub <br />      <br />     Private Sub Command2_Click()''或者在form_unload模块中等等 <br />      IsExit = True <br />     End Sub <br />     其中 isexit是全局变量 <br />     <>有些人喜欢用end语句来结束程序,小程序固然可以,但当太大,或者调用了某些特殊的api函数后可能导致预想不到的错误,如果装载了许多东西在程序结束时不处理将卸载很慢,而且这种做法也极不符合正规软件的要求...总之end语句毛病很多,此不详谈,建议少使用甚至不使用 <br />      <br />     二. 其基本用法大概就这些,现在解析其中的一些[难点] <br />      <br />     1.为什么还是不能结束? <br />     代码如下: <br />     Dim IsExit As Boolean <br />     Private Sub Command1_Click() <br />     Dim L As Long <br />      IsExit = False <br />      Do <br />      If IsExit = True Then Exit Do '句0 <br />      DoEvents '** 句1 <br />      Text1.Text = CStr(L) '** 句2 <br />      L = L + 1 <br />      Loop <br />     End Sub <br />      <br />     Private Sub Form_Load() <br />     Static N As Long <br />     N = N + 1 <br />     MsgBox N <br />     End Sub <br />      <br />     Private Sub Form_Unload(Cancel As Integer) <br />      IsExit = True <br />     End Sub <br />      <br />     运行结果:启动时msg显示1,点击command1,text1在变化 <br />     此时再点form右上角的小差(关闭窗体),发现vb运行控制上的按扭并没变化,说明程序还在运行.如果编译成程序后运行,按下ctrl+del+alt也可发现它还没结束. <br />     通过读代码,并没发现错误，怎么回事? <br />      <br />     关键在于 句2 访问了控件的属性 <br />     代码运行路径:当在doevents 时,程序释放控制权,可以接收事件消息,form-unload事件只能从此处产生,假设此时关闭form ,unload事件发生,即doevents后就运行unload代码,得到isexit=t,并且form卸载,代码返回到doevents 之后,运行 句2.注意现在form 已经卸载了,text1从哪里来呢? <br />     于是form重新装载,代码跳到form_load模块运行,所以在关闭窗体后可以看到msg 显示2,此模块运行完后再继续句2后面的代码,当下次循环遇到 句0时退出循环 <br />     另:既然退出了循环,怎么还不能结束? <br />      vb程序规定(其实其他的windows语言一样):窗体卸载时并不是立即卸载其模块代码,而只先卸载窗体中的控件和一些属性值,程序中最后一个窗体卸载时才完全卸载. <br />     在这个单窗体程序中,form卸载时因为循环的控制无法卸载代码,失去了卸载代码的机会,导致再也不能卸载(因为没卸载代码,所以运行的 句2 是并不会出错) <br />     另:既然再次运行了form_load代码,怎么看不见窗体? <br />      因为程序启动时窗体的到显示的消息,而只运行此模块并没有(如果在msgbox n语句前加上show,就可以看到它了) <br />     如何解决? <br />     通过以上分析,应该很简单,把句1 和句2调换一下就可以了,关键: <br />     <仔细分析代码是如何运行的,避免在form已经卸载了情况下访问控件> <br />      <br />     2.用了doevents速度太慢了怎么办? <br />      doevents的代价是速度变慢,但要程序响应又不得不用 <br />     其实doevents语句允许任何应用程序执行相关事件，而不仅仅是你自己的程序,所以变得很慢. <br />     可以让它响应本程序事件动作,需要用到api函数GetInputState <br />     例如用: If GetInputState() Then DoEvents '来代替doevents可使循环运行更快 <br />      <br />     3.既要同时响应事件又要控件不变化,怎么办? <br />     例如在一个长的循环中向listview控件中添加记录,无doevents时程序无响应,但有它时控件又闪的厉害 <br />     解决办法:a.不一定每次循环都doevents,可以在适当时间时才用,至少没那么闪 <br />     b.应用api函数 ValidateRect 功能是使指定的矩型区域生效,通知Windows不对指定的区域进行重画 另:InvalidateRect 功能相反,同时需要用到函数 GetClientRect 取得指定对象的矩形区域 应用*rect函数指定listview的矩形区不重画,即可避免闪烁(但还是要注意恢复重画,否则看不见了真实效果) <br />      <br />     4.控时循环和变速齿轮 <br />     请看下面的代码: <br />     Option Explicit <br />     Private Declare Function timeGetTime Lib "winmm.dll" () As Long <br />     Dim IsExit As Boolean <br />     Private Sub Command1_Click() <br />     Dim L As Long <br />     Dim Kt As Long <br />     IsExit = False <br />     Do <br />      Kt = timeGetTime() <br />      'do something <br />      L = L + 1 <br />      Text1.Text = L <br />      'DoEvents '句 1 <br />      While timeGetTime - Kt < 50 '句 2 <br />      'While Abs(timeGetTime - Kt) < 50 '句 3 <br />      'While Abs(timeGetTime - Kt) And (Not IsExit) < 50 '句 4 <br />      <br />      DoEvents '句 5 <br />      Wend <br />      'DoEvents '句 6 <br />      If IsExit Then Exit Do <br />     Loop <br />     End Sub <br />      <br />     Private Sub Form_Unload(Cancel As Integer) <br />     IsExit = True <br />     End Sub <br />     其中可用的代码(除去加"'" 号的代码)就是通常的控时循环代码 <br />     运行代码并不会出现错误,但在循环过程,请开启变速齿轮看看 <br />     当关闭齿轮时,将发现text1.text停止了,别慌,等一段时间它又会继续(这要看你设定的时间,这里是50毫秒,如果设定的太长text1.text将半天都没变化,这是怎么回事? <br />      变速齿轮在启动时将hook.dll映射到你的程序地址运行,更改了timegettime()函数获取的时间 <br />     如果在句2和句3间插入debug.print timegettime,timegettime-kt 将发现,在关闭齿轮的瞬间后者变成了负值,timegettime变小了,所以才造成需要等很久 <br />     如果是编写游戏,而用户开了齿轮,那可就惨了 <br />      <br />     解决方案: <br />     a.用句3代替句2,这个方法最简便,虽然不符实,但不会出问题,建议使用 <br />     b.不要句5,换用句6(这样就能达到效果吗?) 因为齿轮还是从doevents语句运行时才能插的进来,所以只要kt=timegettime 和 timegettime之间没有doevents就不会出错 <br />     ab.两种方法都有些小问题,但无大碍,有兴趣者请自己分析 <br />      <br />     5.程序怎么"死了"? <br />     这只是一些人编写时没注意到的小问题,提醒一下: <br />     同样用上面的代码,如果设定的时间太短,以至在代码运行到句2时已经超时了,句5将不能运行了,当然程序就死了哦,以防万一,加上句1,所以此时也只能用a方案来解决齿轮的问题了 <br />     有必要用句4代替句3 吗? 除非你设定的时间太长,人家想关闭你的程序要等上好半天 <br />       <br /> <br /> <br />