CANCEL按钮不响应,急呀!

Question

程序有个长时间运转的FOR循环,希望用户点击界面上的CANCEL按钮是能终止这个FOR循环,但是程序并不响应按钮事件,该怎么办呀,谢谢

Answer 1

在循环中插入doevents，例：
for i =0 to 100000
if i mod 1000=0 then doevents
...
next i

Answer 2

for i =0 to N
    doevents
    ...
next

Answer 3

for i =0 to N
    doevents
    ...
next 然后在Form_unload(byval CanCel as boolean ) 事件中加入以下代碼﹕Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Answer 4

同意victorycyz(中海)
xfyxq(小小旗) (XXQOffice)的程序虽然差不多
但在如果每次循环都DoEvents，会极大的影响速度