求助 关于 等待线程（）的问题。

jingyigufen

我想实现这样的功能，例如循环启动了20个线程，每个线程完成时间不一样，想要等待这些线程全部执行完毕后立刻调试输出“全部线程执行完毕！”
我的代码如下，为了模拟，我特意将10#线程的模拟执行时间调大了。但是得到的输出结果如截图所示。
代码是按网上教程写的，用的自带的多线程支持库。不知是哪里的问题？该如何才能实现我想要的功能呢？
代码：

  

子程序名	返回值类型	公开	备 注
_按钮_启动线程并等待线程执行完_被单击			//线程等待还是不起作用！！！发帖求助

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型

计次循环首 (20, i)
重定义数组 (集_线程句柄数组, 假, i)
启动线程 (&子程序_有参线程, i, 集_线程句柄数组 [i])
程序_延时 (5)
计次循环尾 ()
' 等待所有线程执行完毕
计次循环首 (20, j)
等待线程 (集_线程句柄数组 [j], )  ' 感觉不起作用
程序_延时 (5)
计次循环尾 ()
输出调试文本 (“所有线程已经启动！”)

子程序名	返回值类型	公开	备 注
子程序_有参线程
参数名	类 型	参考	可空	数组	备 注
参_输入数据	整数型

如果真 (参_输入数据 ＝ 10)  ' 10号线程时间加长为3秒多，测试线程等待
程序_延时 (3000 ＋ 取随机数 (0, 1000), )
输出调试文本 (到文本 (参_输入数据) ＋ “#线程已经启动！”)
返回 ()
程序_延时 (1000 ＋ 取随机数 (0, 1000), )
输出调试文本 (到文本 (参_输入数据) ＋ “#线程已经启动！”)
返回 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮_启动线程并等待线程执行完_被单击, , , //线程等待还是不起作用！！！发帖求助<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> .计次循环首 (20, i)<br />     重定义数组 (集_线程句柄数组, 假, i)<br />     启动线程 (&子程序_有参线程, i, 集_线程句柄数组 <i>)<br />     程序_延时 (5)<br /> .计次循环尾 ()<br /> ' 等待所有线程执行完毕<br /> .计次循环首 (20, j)<br />     等待线程 (集_线程句柄数组 [j], )  ' 感觉不起作用<br />     程序_延时 (5)<br /> .计次循环尾 ()<br /> 输出调试文本 (“所有线程已经启动！”)<br /> <br /> .子程序 子程序_有参线程<br /> .参数 参_输入数据, 整数型<br /> <br /> .如果真 (参_输入数据 ＝ 10)  ' 10号线程时间加长为3秒多，测试线程等待<br />     程序_延时 (3000 ＋ 取随机数 (0, 1000), )<br />     输出调试文本 (到文本 (参_输入数据) ＋ “#线程已经启动！”)<br />     返回 ()<br /> .如果真结束<br /> 程序_延时 (1000 ＋ 取随机数 (0, 1000), )<br /> 输出调试文本 (到文本 (参_输入数据) ＋ “#线程已经启动！”)<br /> 返回 ()

代码截图：

输出结果：

凌哥

重定义数组 (集_线程句柄数组, 假, i)

改成

重定义数组 (集_线程句柄数组, 真, i)

b0y

等待线程会阻塞主线程  放在线程里

b0y

补充内容 (2025-3-22 07:37):
  另外如果用MsgWaitForMultipleObjects等待线程不会阻塞主线程

笨来无一悟

【蠢新学汇编】多线程是否全部执行完毕
https://bbs.125.la/forum.php?mod=viewthread&tid=14825940
(出处: 精易论坛)

wlp

第一个重定义数组的第二个参数改为真，假是清空，真是保留内容

jingyigufen

凌哥 发表于 2025-3-22 07:45
重定义数组 (集_线程句柄数组, 假, i)

改成

凌哥正解，疏忽了。另外可能放在线程里面等待好一些。