求多线程大佬看看我的多线程 执行久了总是出现混乱

哈哈来了

  

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

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

如果真 (线程池.取_是否空闲 () ＝ 假)
信息框 (“请等待线程完全停止再启动”, 48 ＋ 65536, , )
返回 ()

线程池.销毁 (0)
编辑框9.内容 ＝ “1”
len ＝ 超级列表框1.取表项数 ()
如果真 (len ＜ 1)
信息框 (“请先导入ck”, 48 ＋ 65536, , )
返回 ()
临界.进入 ()
连续赋值 (0, 已完成数量, 保证显示索引)
临界.退出 ()
bool ＝ 线程.创建 (&工作)
如果真 (bool ＝ 真)
返回 ()

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

变量名	类 型	静态	数组	备 注
并发线程数	整数型
bool	逻辑型
len	整数型
i	整数型
空闲线程数	整数型
int	整数型
线程工作数	整数型
a	整数型

临界.进入 ()
并发线程数 ＝ 到整数 (编辑框_并发线程数.内容)
临界.退出 ()
如果真 (并发线程数 ＜ 1)
并发线程数 ＝ 1
bool ＝ 线程池.创建 (并发线程数)
如果真 (bool ＝ 假)
返回 ()

临界.进入 ()
len ＝ 超级列表框1.取表项数 () － 1  ' 列表索引从0开始
a ＝ 超级列表框1.取表项数 ()
临界.退出 ()
判断 (到整数 (编辑框_账号执行行.内容) ＝ 0)
i ＝ 到整数 (编辑框_账号执行行.内容)
i ＝ 到整数 (到文本 (编辑框_账号执行行.内容))
判断循环首 (i ≤ len)
空闲线程数 ＝ 线程池.取_空闲线程数 ()
如果真 (空闲线程数 ＞ 0)
int ＝ len － i ＋ 1
如果真 (int ＞ 空闲线程数)
int ＝ 空闲线程数
计次循环首 (a, )
如果真 (超级列表框1.取当前状态图片 (i) ＝ 1)  ' 这句话判断检查框是否勾选上，勾选则状态图片=1
线程池.投递任务 (&邀请, i, )

i ＝ i ＋ 1
计次循环尾 ()
bool ＝ 线程池.等待任务动态 ()如果真 (bool ＝ 假)  ' 返回假 表示线程池被执行销毁 也表示用户手动点了停止
返回 ()

判断循环尾 ()
' 等待剩余任务执行完毕
判断循环首 (线程池.取_是否空闲 () ＝ 假)
如果真 (线程池.取_状态 () ≠ #线程池_正在工作 )
返回 ()
bool ＝ 线程池.等待任务动态 (100)
判断循环尾 ()
' 执行停止
线程池.销毁 (0)
按钮_开始停止.禁止 ＝ 假

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_开始停止_被单击<br /> .局部变量 bool, 逻辑型<br /> .局部变量 len, 整数型<br /> <br /> <br /> .如果真 (线程池.取_是否空闲 () ＝ 假)<br />     信息框 (“请等待线程完全停止再启动”, 48 ＋ 65536, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 线程池.销毁 (0)<br /> 编辑框9.内容 ＝ “1”<br /> len ＝ 超级列表框1.取表项数 ()<br /> .如果真 (len ＜ 1)<br />     信息框 (“请先导入ck”, 48 ＋ 65536, , )<br />     返回 ()<br /> <br /> .如果真结束<br /> 临界.进入 ()<br /> 连续赋值 (0, 已完成数量, 保证显示索引)<br /> 临界.退出 ()<br /> bool ＝ 线程.创建 (&工作)<br /> .如果真 (bool ＝ 真)<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 工作<br /> .局部变量 并发线程数, 整数型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 空闲线程数, 整数型<br /> .局部变量 int, 整数型<br /> .局部变量 线程工作数, 整数型<br /> .局部变量 a, 整数型<br /> <br /> <br /> 临界.进入 ()<br /> 并发线程数 ＝ 到整数 (编辑框_并发线程数.内容)<br /> 临界.退出 ()<br /> .如果真 (并发线程数 ＜ 1)<br />     并发线程数 ＝ 1<br /> .如果真结束<br /> bool ＝ 线程池.创建 (并发线程数)<br /> .如果真 (bool ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> <br /> 临界.进入 ()<br /> len ＝ 超级列表框1.取表项数 () － 1  ' 列表索引从0开始<br /> a ＝ 超级列表框1.取表项数 ()<br /> 临界.退出 ()<br /> .判断开始 (到整数 (编辑框_账号执行行.内容) ＝ 0)<br />     i ＝ 到整数 (编辑框_账号执行行.内容)<br /> .默认<br />     i ＝ 到整数 (到文本 (编辑框_账号执行行.内容))<br /> .判断结束<br /> .判断循环首 (i ≤ len)<br />     空闲线程数 ＝ 线程池.取_空闲线程数 ()<br />     .如果真 (空闲线程数 ＞ 0)<br />         int ＝ len － i ＋ 1<br /> <br />         .如果真 (int ＞ 空闲线程数)<br />             int ＝ 空闲线程数<br /> <br />         .如果真结束<br />         .计次循环首 (a, )<br />             .如果真 (超级列表框1.取当前状态图片 (i) ＝ 1)  ' 这句话判断检查框是否勾选上，勾选则状态图片=1<br />                 线程池.投递任务 (&邀请, i, )<br />             .如果真结束<br /> <br />             i ＝ i ＋ 1<br />         .计次循环尾 ()<br />     .如果真结束<br />     bool ＝ 线程池.等待任务动态 ()<br />     .如果真 (bool ＝ 假)  ' 返回假 表示线程池被执行销毁 也表示用户手动点了停止<br /> <br />         返回 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> ' 等待剩余任务执行完毕<br /> .判断循环首 (线程池.取_是否空闲 () ＝ 假)<br />     .如果真 (线程池.取_状态 () ≠ #线程池_正在工作)<br />         返回 ()<br />     .如果真结束<br />     bool ＝ 线程池.等待任务动态 (100)<br /> <br /> .判断循环尾 ()<br /> <br /> ' 执行停止<br /> 线程池.销毁 (0)<br /> 按钮_开始停止.禁止 ＝ 假

执行多线程  比如5线程10线程的 时候  CK会出现混乱(比如100行的数据  出现在101行的上面)， 求大佬指点一下 感激不尽

独孤求胜

不要直接在线程里操作UI，不崩溃已经是给你面子了

独孤求胜

或者你试下我的表格支持库，我对多线程做了处理，个人免费，商业收费

哈哈来了

独孤求胜 发表于 2025-6-6 10:57
不要直接在线程里操作UI，不崩溃已经是给你面子了

啥意思哥   能改下我的代码吗

萧楚楠

线程池不需要频繁的创建销毁，读变量不需要加临界，建议找个多线程模板套着写

ayff888

bool ＝ 线程.创建 (&工作)   
.如果真 (bool ＝ 真)
    返回 ()
.如果真结束

这里不就返回了吗!

哈哈来了

自查找到原因了 ， 在线程中读写了全局变量导致的冲突