如何让程序暂停？

Question

我在写一个把EXCELL表中的数据导入网页的小程序，有一个问题是，如何使用某按钮暂停一下程序，或者停止程序？？我程序的思路：1、打开EXCELL表
2、把表中的数据1导入网页
3、网页进行二项操作
4、循环进行2和3
5、清空内存中的EXCELL.如何暂停程序或停止程序？

Answer 1

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Answer 2

dim StopFlags as boolean
StopFlags =false1、打开EXCELL表 
2、把表中的数据1导入网页 
3、网页进行二项操作 4、doevents
5 if stopflags then exit for    else 循环进行2和3 5、清空内存中的EXCELL按扭安下时stopflags=true

Answer 3

停止程序-------
Private Sub Command1_Click()
End '或者将所有窗体全部卸载
End Sub暂停一下程序----Sleep是一个选择;也可使用延时函数,VB延时函数---到网上搜一下

Answer 4

貌似不可以，sleep只能起到停止几秒作用，如果是运行外部exe程序还可以用waitforsingleobject
。
可以考虑保存进度到文件，下次继续就行

Answer 5

我觉得在循环中添加DoEvents，再在外部添加可中断循环的条件，例子如下：dim bolP as boolean
bolP=false
循环：
Do
    DoEvents
    以下添加你的操作代码
Loop Until bolP外部中止循环代码（比如一个按钮的Click事件中的代码）
bolP=true