1,066
社区成员
发帖
与我相关
我的任务
分享如何让一系列程序按次序执行？
一个程序关闭后自动打开下一个程序
要像dos下的bat文件一样
bat文件在windows下执行会同时打开所有程序
...全文
请发表友善的回复…
发表回复
韩誉 2003-12-03
- 打赏
- 举报
可以发出命令后结束自己运行啊 然后有下一个程序再调用下一个啊
boydgmx 2003-12-02
- 打赏
- 举报
我曾经用碰到这种问题，当时的做法是在 App.path 下保存一个文件 0.txt，
第 1 个程序的最后一条语句将这个文件重命名为 1.txt，
第 2 个程序的最后一条语句将这个文件重命名为 2.txt，
.......
这样只要判断 i.txt 是否存在，就可以决定第 i+1 个程序是否可以执行了。
用这样的循环:
Do while(not FSys.FileExists(app.path & "\" & i & ".txt"))
doevents
Wend
'执行第 i+1 个程序
也就是说各个程序之间的顺序是程序本身控制的，每个程序结束之前都必须间接
通知后续程序
第 1 个程序的最后一条语句将这个文件重命名为 1.txt，
第 2 个程序的最后一条语句将这个文件重命名为 2.txt，
.......
这样只要判断 i.txt 是否存在，就可以决定第 i+1 个程序是否可以执行了。
用这样的循环:
Do while(not FSys.FileExists(app.path & "\" & i & ".txt"))
doevents
Wend
'执行第 i+1 个程序
也就是说各个程序之间的顺序是程序本身控制的，每个程序结束之前都必须间接
通知后续程序
boydgmx 2003-12-02
- 打赏
- 举报
使用标志位（或全局变量）,例如
Public CurrStat as integer
currstat=0
第 i 个程序执行完毕之后，currstat= i
第 i + 1 个程序能够开始执行的条件是：currstat= i
【呵呵，写完了才发现这种办法只能解决皮毛问题，无法深入解决】
【如果要彻底解决，可能需要用API判定某个进程是否执行完毕。。。】
【关注。。】
Public CurrStat as integer
currstat=0
第 i 个程序执行完毕之后，currstat= i
第 i + 1 个程序能够开始执行的条件是：currstat= i
【呵呵，写完了才发现这种办法只能解决皮毛问题，无法深入解决】
【如果要彻底解决，可能需要用API判定某个进程是否执行完毕。。。】
【关注。。】
