多线程结束问题，怎么样可以改一点结束就停止，循环也...

芬达gggg

  

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

操作计次 ＝ 0
局_索引 ＝ 0
许可证 ＝ 创建进入许可证 ()
启动线程 (&多线程操作, , 线程句柄)  ' 多线程操作易语言多线程设置 线程句柄用来结束多线程的
开始按钮.禁止 ＝ 真
结束按钮.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
多线程操作			易语言多线程支持库设置的地方

变量名	类 型	静态	数组	备 注
逻辑	逻辑型

逻辑 ＝ 真
循环判断首 ()
如果真 (操作计次 ＝ 到整数 (编辑框数量.内容))  ' 这里为真 操作数量够了 跳出循环   3 = 100
跳出循环 ()
如果 (线程数量 ＜ 到整数 (编辑框线程.内容))  ' 走到这里 说明 他操作次数还不够 所以他继续执行 3< 3
线程_启动 (&多线程养号, , )
线程数量 ＝ 线程数量 ＋ 1
操作计次 ＝ 操作计次 ＋ 1

延迟 (1000)

循环判断尾 (逻辑 ＝ 真)  ' 死循环
开始按钮.禁止 ＝ 假
结束按钮.禁止 ＝ 真
删除进入许可证 (许可证)

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

变量名	类 型	静态	数组	备 注
bo	逻辑型
数量	整数型

软件日志 (“销毁线程池中...”)
删除进入许可证 (许可证)
线程_销毁 (线程句柄)
强制结束线程 (线程句柄)
结束按钮.禁止 ＝ 真
开始按钮.禁止 ＝ 假
软件日志 (“任务已完成”)

子程序名	返回值类型	公开	备 注
多线程养号
参数名	类 型	参考	可空	数组	备 注
索引	整数型

变量名	类 型	静态	数组	备 注
返回值	文本型
次数	整数型

计次循环首 (30, 次数)
软件日志 (“5”)
程序_延时 (1000)
计次循环尾 ()
线程数量 ＝ 线程数量 － 1
返回 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 _开始按钮_被单击<br /> <br /> <br /> 操作计次 ＝ 0<br /> <br /> 局_索引 ＝ 0<br /> <br /> 许可证 ＝ 创建进入许可证 ()<br /> <br /> 启动线程 (&多线程操作, , 线程句柄)  ' 多线程操作易语言多线程设置 线程句柄用来结束多线程的<br /> <br /> 开始按钮.禁止 ＝ 真<br /> <br /> 结束按钮.禁止 ＝ 假<br /> <br /> <br /> <br /> .子程序 多线程操作, , , 易语言多线程支持库设置的地方<br /> .局部变量 逻辑, 逻辑型<br /> <br /> <br /> 逻辑 ＝ 真<br /> <br /> .循环判断首 ()<br /> <br />     .如果真 (操作计次 ＝ 到整数 (编辑框数量.内容))  ' 这里为真 操作数量够了 跳出循环   3 = 100<br />         跳出循环 ()<br /> <br />     .如果真结束<br />     .如果 (线程数量 ＜ 到整数 (编辑框线程.内容))  ' 走到这里 说明 他操作次数还不够 所以他继续执行 3< 3<br /> <br />         线程_启动 (&多线程养号, , )<br /> <br />         线程数量 ＝ 线程数量 ＋ 1<br /> <br />         操作计次 ＝ 操作计次 ＋ 1<br /> <br />     .否则<br />         延迟 (1000)<br /> <br />     .如果结束<br /> <br /> .循环判断尾 (逻辑 ＝ 真)  ' 死循环<br /> <br /> <br /> 开始按钮.禁止 ＝ 假<br /> <br /> 结束按钮.禁止 ＝ 真<br /> <br /> 删除进入许可证 (许可证)<br /> <br /> <br /> <br /> .子程序 _结束按钮_被单击<br /> .局部变量 bo, 逻辑型<br /> .局部变量 数量, 整数型<br /> <br /> <br /> 软件日志 (“销毁线程池中...”)<br /> <br /> 删除进入许可证 (许可证)<br /> 线程_销毁 (线程句柄)<br /> 强制结束线程 (线程句柄)<br /> <br /> 结束按钮.禁止 ＝ 真<br /> <br /> 开始按钮.禁止 ＝ 假<br /> <br /> 软件日志 (“任务已完成”)<br /> <br /> <br /> <br /> <br /> .子程序 多线程养号<br /> .参数 索引, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> .计次循环首 (30, 次数)<br /> <br />     软件日志 (“5”)<br />     程序_延时 (1000)<br /> .计次循环尾 ()<br /> <br /> <br /> 线程数量 ＝ 线程数量 － 1<br /> <br /> <br /> 返回 ()

LEOONL

你只是把你启动线程的句柄销毁了，没有销毁之后启动的线程，你得把线程句柄全都加入一个数组  批量结束

芬达gggg

多线程结束问题，怎么样可以改一点结束就停止，循环也停止，目前是点结束了，还得等循环结束

南影

把逻辑变量定义成 程序集变量
在按钮按结束下面写
逻辑 = 假

LEOONL

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
句柄组	整数型	0

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

操作计次 ＝ 0
局_索引 ＝ 0
许可证 ＝ 创建进入许可证 ()
清除数组 (句柄组)
启动线程 (&多线程操作, , 线程句柄)  ' 多线程操作易语言多线程设置 线程句柄用来结束多线程的
加入成员（句柄组，线程句柄）
开始按钮.禁止 ＝ 真
结束按钮.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
多线程操作			易语言多线程支持库设置的地方

变量名	类 型	静态	数组	备 注
逻辑	逻辑型
线程句柄	整数型

逻辑 ＝ 真
循环判断首 ()
如果真 (操作计次 ＝ 到整数 (编辑框数量.内容))  ' 这里为真 操作数量够了 跳出循环   3 = 100
跳出循环 ()
如果 (线程数量 ＜ 到整数 (编辑框线程.内容))  ' 走到这里 说明 他操作次数还不够 所以他继续执行 3< 3
线程_启动 (&多线程养号, , 线程句柄)
加入成员 (句柄组, 线程句柄)
线程数量 ＝ 线程数量 ＋ 1
操作计次 ＝ 操作计次 ＋ 1
延迟 (1000)

循环判断尾 (逻辑 ＝ 真)  ' 死循环
开始按钮.禁止 ＝ 假
结束按钮.禁止 ＝ 真
删除进入许可证 (许可证)

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

变量名	类 型	静态	数组	备 注
bo	逻辑型
数量	整数型
n	整数型

软件日志 (“销毁线程池中...”)
删除进入许可证 (许可证)
计次循环首 (取数组成员数 (句柄组), n)
强制结束线程 (句柄组 [n])
计次循环尾 ()
结束按钮.禁止 ＝ 真
开始按钮.禁止 ＝ 假
软件日志 (“任务已完成”)

子程序名	返回值类型	公开	备 注
多线程养号
参数名	类 型	参考	可空	数组	备 注
索引	整数型

变量名	类 型	静态	数组	备 注
返回值	文本型
次数	整数型

计次循环首 (30, 次数)
软件日志 (“5”)
程序_延时 (1000)
计次循环尾 ()
线程数量 ＝ 线程数量 － 1
返回 ()

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

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 句柄组, 整数型, , "0"<br /> <br /> .子程序 _开始按钮_被单击<br /> <br /> 操作计次 ＝ 0<br /> 局_索引 ＝ 0<br /> 许可证 ＝ 创建进入许可证 ()<br /> 清除数组 (句柄组)<br /> 启动线程 (&多线程操作, , 线程句柄)  ' 多线程操作易语言多线程设置 线程句柄用来结束多线程的<br /> 加入成员（句柄组，线程句柄）<br /> 开始按钮.禁止 ＝ 真<br /> 结束按钮.禁止 ＝ 假<br /> <br /> .子程序 多线程操作, , , 易语言多线程支持库设置的地方<br /> .局部变量 逻辑, 逻辑型<br /> .局部变量 线程句柄, 整数型<br /> <br /> 逻辑 ＝ 真<br /> .循环判断首 ()<br />     .如果真 (操作计次 ＝ 到整数 (编辑框数量.内容))  ' 这里为真 操作数量够了 跳出循环   3 = 100<br />         跳出循环 ()<br />     .如果真结束<br />     .如果 (线程数量 ＜ 到整数 (编辑框线程.内容))  ' 走到这里 说明 他操作次数还不够 所以他继续执行 3< 3<br />         线程_启动 (&多线程养号, , 线程句柄)<br />         加入成员 (句柄组, 线程句柄)<br />         线程数量 ＝ 线程数量 ＋ 1<br />         操作计次 ＝ 操作计次 ＋ 1<br />     .否则<br />         延迟 (1000)<br />     .如果结束<br /> <br /> .循环判断尾 (逻辑 ＝ 真)  ' 死循环<br /> 开始按钮.禁止 ＝ 假<br /> 结束按钮.禁止 ＝ 真<br /> 删除进入许可证 (许可证)<br /> <br /> .子程序 _结束按钮_被单击<br /> .局部变量 bo, 逻辑型<br /> .局部变量 数量, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 软件日志 (“销毁线程池中...”)<br /> <br /> 删除进入许可证 (许可证)<br /> .计次循环首 (取数组成员数 (句柄组), n)<br />     强制结束线程 (句柄组 [n])<br /> .计次循环尾 ()<br /> <br /> <br /> 结束按钮.禁止 ＝ 真<br /> <br /> 开始按钮.禁止 ＝ 假<br /> <br /> 软件日志 (“任务已完成”)<br /> <br /> .子程序 多线程养号<br /> .参数 索引, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> .计次循环首 (30, 次数)<br /> <br />     软件日志 (“5”)<br />     程序_延时 (1000)<br /> .计次循环尾 ()<br /> <br /> <br /> 线程数量 ＝ 线程数量 － 1<br /> <br /> <br /> 返回 ()

LEOONL

1.e (5.39 KB, 下载次数: 11)

2024-10-15 10:11 上传

点击文件名下载附件

芬达gggg

LEOONL 发表于 2024-10-15 10:10
[e=0].版本 2
.支持库 spec
.支持库 EThread

不行啊  .....................

LEOONL

芬达gggg 发表于 2024-10-15 18:02
不行啊  .....................

怎么会不行，哪里不行

芬达gggg

LEOONL 发表于 2024-10-15 18:04
怎么会不行，哪里不行

还是不能停下来，点结束了，代码还在跑

LEOONL

芬达gggg 发表于 2024-10-15 18:06
还是不能停下来，点结束了，代码还在跑

1.e (3.43 KB, 下载次数: 9)

2024-10-15 18:14 上传

点击文件名下载附件

正确效果就是这样的，你再检查检查你代码是哪里有问题