多线程的程序等待问题

砖头文

易语言自带的“等待线程”会让窗口卡死，而精益模块的“线程_等待”需要窗口获得焦点时，才会运行，导致效率很低。
请问如果实现多线程（主要为了窗口不假死），同时等待前面的多线程程序完成后，才继续运行后面的多线程和单线程的代码？


例如代码如下，就会只能在窗口获得焦点时，多线程才会运行。如果窗口在后台，程序就会暂停不运行。
.版本 2

按钮1.禁止 ＝ 真

许可证 ＝ 线程_创建许可证 ()
线程句柄 ＝ 线程_启动 (&读取数据)
线程_等待 (线程句柄, )

许可证 ＝ 线程_创建许可证 ()
线程句柄 ＝ 线程_启动 (&导出数据)
线程_等待 (线程句柄, )

按钮1.禁止 ＝ 假
执行 (, 路径, , , )
信息框 (“完成”, 0, , )

没事瞎琢磨

给线程里边加状态 外边死循环判断状态 在继续执行

lyie15

定义一个全局变量，用来存放状况，在线程内加一个死循环不，对这个变量进行判断。用于执行  延时，或下一步的操作

qq261583065

许可证 ＝ 线程_创建许可证 () 去掉一个 ，在进入线程前用一个就好，线程内不需要再用了，不需要添加等待代码，用一个线程句柄 其它线程会在线程外排队的

qq261583065

  

[e=3].版本 2

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

线程ID_ ＝ 线程_创建许可证 () ’//把 线程ID 放在程序集变量里

子程序名	返回值类型	公开	备 注
_按钮2_被单击

计次循环首 (5, )
启动线程 (&子程序1, , )
程序_延时 (100, )
计次循环尾 ()

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

启动线程 (&hhh, , )

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

变量名	类 型	静态	数组	备 注
u	整数型
y	整数型

线程_进入许可区 (线程ID_) ‘//相当于一扇门 只能一个一个的进
y ＝ y ＋ 1
调试输出 (“线程开始” ＋ 到文本 (y) ＋ “次”, “【线程外剩余排队数】：” ＋ 到文本 (5 － y))
u ＝ 0
计次循环首 (50, )
程序_延时 (100, )
u ＝ u ＋ 1
计次循环尾 ()
调试输出 (“线程结束” ＋ 到文本 (y) ＋ “次”)
线程_退出许可区 (线程ID_)
如果真 (y ＝ 5)
调试输出 (“线程全部完成”)

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

[e=3].版本 2<br /> .支持库 edroptarget<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 线程ID_ ＝ 线程_创建许可证 () ’//把 线程ID 放在程序集变量里<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .计次循环首 (5, )<br /> 启动线程 (&子程序1, , )<br /> 程序_延时 (100, )<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序1<br /> <br /> 启动线程 (&hhh, , )<br /> <br /> .子程序 hhh<br /> .局部变量 u, 整数型<br /> .局部变量 y, 整数型, 静态<br /> <br /> 线程_进入许可区 (线程ID_) ‘//相当于一扇门 只能一个一个的进<br /> y ＝ y ＋ 1<br /> 调试输出 (“线程开始” ＋ 到文本 (y) ＋ “次”, “【线程外剩余排队数】：” ＋ 到文本 (5 － y))<br /> u ＝ 0<br /> .计次循环首 (50, )<br /> 程序_延时 (100, )<br /> u ＝ u ＋ 1<br /> .计次循环尾 ()<br /> 调试输出 (“线程结束” ＋ 到文本 (y) ＋ “次”)<br /> 线程_退出许可区 (线程ID_)<br /> .如果真 (y ＝ 5)<br /> 调试输出 (“线程全部完成”)<br /> .如果真结束

[/e]