简单问题

慕容星赫

怎样做到多线程操作完成之后弹出信息框提示执行完毕，5个线程执行5个子程序，现在的问题是直接弹个信息框，而那5个线程还在运行

ma8803

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
许可证	整数型
当前完成数量	整数型		‘存放操作完成的线程数量

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

许可证 ＝ 创建进入许可证 ()
当前完成数量 ＝ 0
计次循环首 (16, )
启动线程 (&多线程程序, , )
计次循环尾 ()
启动线程 (&判断是否运行完成程序, , )

子程序名	返回值类型	公开	备 注
判断是否运行完成程序

判断循环首 (当前完成数量 ≠ 16)
延迟 (10)
判断循环尾 ()
信息框 (“线程运行完毕”, 0, )

子程序名	返回值类型	公开	备 注
多线程程序

' 我的线程执行
' 在线程末尾加上这个 来写入当前线程完成状态
进入许可区 (许可证)
当前完成数量 ＝ 当前完成数量 ＋ 1
退出许可区 (许可证)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 许可证, 整数型<br /> .程序集变量 当前完成数量, 整数型, , , ‘存放操作完成的线程数量<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 许可证 ＝ 创建进入许可证 ()<br /> 当前完成数量 ＝ 0<br /> .计次循环首 (16, )<br />     启动线程 (&多线程程序, , )<br /> <br /> .计次循环尾 ()<br /> 启动线程 (&判断是否运行完成程序, , )<br /> <br /> .子程序 判断是否运行完成程序<br /> <br /> .判断循环首 (当前完成数量 ≠ 16)<br />     延迟 (10)<br /> .判断循环尾 ()<br /> 信息框 (“线程运行完毕”, 0, )<br /> <br /> .子程序 多线程程序<br /> <br /> ' 我的线程执行<br /> <br /> <br /> ' 在线程末尾加上这个 来写入当前线程完成状态<br /> 进入许可区 (许可证)<br /> 当前完成数量 ＝ 当前完成数量 ＋ 1<br /> 退出许可区 (许可证)

zpinsist

源码贴出来。要不然搞不懂。。。

又是饭桶

可以做个判断哦 就是在每个子程序后面加个代码 比如线程_1=真 意思就是线程一完成哦 然后以此类推

臭臭臭臭臭Bitch

用变量判断
线程启动下面 变量+1
子程序 执行完毕后面-1
如果 变量=0了
就是执行完了  因为5个都-去了 所以就可以判断了

〃黑白配

定义一个变量
线程开始的时候  变量=变量+1
线程结束的时候  变量=变量-1
然后判断循环变量的值是否=0
如果=0 说明线程全部执行完了
信息框()

剩下我de孩子气

加程序集变量  整数的  每次加1 判断

ジ秋水

高手

臭臭臭臭臭Bitch

ジ秋水 发表于 2014-7-16 18:07
高手

本人精通易语言的打开和关闭

ジ秋水

ˋ物似人非 发表于 2014-7-16 18:15
本人精通易语言的打开和关闭

没想到你在排行版第一名
看来礼品又有你的份了