这是什么问题 求助大佬了

xygugu

这线程一加进来 关闭软件就会提示 图片上这个  这要怎么解决啊   而且线程开启了动作正常但是和列表框选中项的动作不同步

  

组合框1.清空 ()
A ＝ 寻找文件 (取运行目录 () ＋ “\123\*.txt”, 32)
B ＝ 打开文件 (取运行目录 () ＋ “\123\*.txt”, #读入, #无限制 )
如果真 (A ≠ “”)
循环判断首 ()
组合框1.加入项目 (A, )
A ＝ 寻找文件 (, )
循环判断尾 (A ≠ “”)
组合框1.现行选中项 ＝ -1
线程_启动 (&脚本, , g)

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

变量名	类 型	静态	数组	备 注
数组1	文本型		0
i	整数型

列表框1.清空 ()
数组1 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\123\” ＋ 组合框1.取项目文本 (组合框1.现行选中项))), #换行符, )
计次循环首 (取数组成员数 (数组1), i)
列表框1.加入项目 (数组1 [i], )
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
数组1	文本型		0
i	整数型

' 组合框1.清空 ()
' 列表框1.清空 ()
' A ＝ 寻找文件 (取运行目录 () ＋ “\123\*.txt”, 32)
' B ＝ 打开文件 (取运行目录 () ＋ “\123\*.txt”, #读入, #无限制)
. ' 如果真 (A ≠ “”)
. ' 循环判断首 ()
' 组合框1.加入项目 (A, )
' A ＝ 寻找文件 (, )
. ' 循环判断尾 (A ≠ “”)
' 组合框1.现行选中项 ＝ -1
列表框1.清空 ()
数组1 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\123\” ＋ 组合框1.取项目文本 (组合框1.现行选中项))), #换行符, )
计次循环首 (取数组成员数 (数组1), i)
列表框1.加入项目 (数组1 [i], )
计次循环尾 ()

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

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

如果 (按钮1.标题 ＝ “运行”)
脚本运行行数 ＝ 0
按钮1.标题 ＝ “停止”
脚本运行行数 ＝ 0
按钮1.标题 ＝ “运行”

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

变量名	类 型	静态	数组	备 注
运行	逻辑型
命令	文本型
参数	整数型
命令分割后	文本型		0

运行 ＝ 真
判断循环首 (运行)
如果 (按钮1.标题 ＝ “停止”)
如果 (列表框1.取项目数 () ≤ 脚本运行行数)
脚本运行行数 ＝ 0



列表框1.现行选中项 ＝ 脚本运行行数
命令 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
调试输出 (列表框1.取项目文本 (列表框1.现行选中项))
命令分割后 ＝ 分割文本 (命令, “ ”, )
延迟 (1000)
如果 (命令 ＝ “”)
脚本运行行数 ＝ 脚本运行行数 ＋ 1
到循环尾 ()



如果 (命令 ＝ “#”)
脚本运行行数 ＝ 脚本运行行数 ＋ 1
到循环尾 ()



如果 (命令分割后 [1] ＝ “等待”)
延迟 (到整数 (命令分割后 [2]))
脚本运行行数 ＝ 脚本运行行数 ＋ 1
到循环尾 ()



如果 (命令分割后 [1] ＝ “右击”)
大漠.MoveTo (到整数 (命令分割后 [2]), 到整数 (命令分割后 [3]))
大漠.RightClick ()
脚本运行行数 ＝ 脚本运行行数 ＋ 1
到循环尾 ()



脚本运行行数 ＝ 脚本运行行数 ＋ 1




判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> 组合框1.清空 ()<br /> A ＝ 寻找文件 (取运行目录 () ＋ “\123\*.txt”, 32)<br /> B ＝ 打开文件 (取运行目录 () ＋ “\123\*.txt”, #读入, #无限制)<br /> .如果真 (A ≠ “”)<br />     .循环判断首 ()<br />         组合框1.加入项目 (A, )<br />         A ＝ 寻找文件 (, )<br />     .循环判断尾 (A ≠ “”)<br /> <br /> .如果真结束<br /> 组合框1.现行选中项 ＝ -1<br /> <br /> 线程_启动 (&脚本, , g)<br /> <br /> .版本 2<br /> .支持库 spec<br /> <br /> .子程序 _组合框1_列表项被选择<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 列表框1.清空 ()<br /> 数组1 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\123\” ＋ 组合框1.取项目文本 (组合框1.现行选中项))), #换行符, )<br /> .计次循环首 (取数组成员数 (数组1), i)<br />     列表框1.加入项目 (数组1 <i>, )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 组合框1.清空 ()<br /> ' 列表框1.清空 ()<br /> ' A ＝ 寻找文件 (取运行目录 () ＋ “\123\*.txt”, 32)<br /> ' B ＝ 打开文件 (取运行目录 () ＋ “\123\*.txt”, #读入, #无限制)<br /> .' 如果真 (A ≠ “”)<br />     .' 循环判断首 ()<br />         ' 组合框1.加入项目 (A, )<br />         ' A ＝ 寻找文件 (, )<br />     .' 循环判断尾 (A ≠ “”)<br /> <br /> .如果真结束<br /> ' 组合框1.现行选中项 ＝ -1<br /> 列表框1.清空 ()<br /> 数组1 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\123\” ＋ 组合框1.取项目文本 (组合框1.现行选中项))), #换行符, )<br /> .计次循环首 (取数组成员数 (数组1), i)<br />     列表框1.加入项目 (数组1 <i>, )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 g, 整数型<br /> <br /> .如果 (按钮1.标题 ＝ “运行”)<br />     脚本运行行数 ＝ 0<br />     按钮1.标题 ＝ “停止”<br /> .否则<br />     脚本运行行数 ＝ 0<br />     按钮1.标题 ＝ “运行”<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 脚本<br /> .局部变量 运行, 逻辑型<br /> .局部变量 命令, 文本型<br /> .局部变量 参数, 整数型<br /> .局部变量 命令分割后, 文本型, , "0"<br /> <br /> <br /> 运行 ＝ 真<br /> <br /> .判断循环首 (运行)<br /> <br />     .如果 (按钮1.标题 ＝ “停止”)<br /> <br />         .如果 (列表框1.取项目数 () ≤ 脚本运行行数)<br />             脚本运行行数 ＝ 0<br />         .否则<br /> <br />         .如果结束<br /> <br /> <br /> <br />         列表框1.现行选中项 ＝ 脚本运行行数<br />         命令 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br />         调试输出 (列表框1.取项目文本 (列表框1.现行选中项))<br />         命令分割后 ＝ 分割文本 (命令, “ ”, )<br /> <br /> <br />         延迟 (1000)<br />         .如果 (命令 ＝ “”)<br />             脚本运行行数 ＝ 脚本运行行数 ＋ 1<br />             到循环尾 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />         .如果 (命令 ＝ “#”)<br />             脚本运行行数 ＝ 脚本运行行数 ＋ 1<br />             到循环尾 ()<br />         .否则<br /> <br />         .如果结束<br /> <br /> <br />         .如果 (命令分割后 [1] ＝ “等待”)<br />             延迟 (到整数 (命令分割后 [2]))<br />             脚本运行行数 ＝ 脚本运行行数 ＋ 1<br />             到循环尾 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />         .如果 (命令分割后 [1] ＝ “右击”)<br />             大漠.MoveTo (到整数 (命令分割后 [2]), 到整数 (命令分割后 [3]))<br />             大漠.RightClick ()<br />             脚本运行行数 ＝ 脚本运行行数 ＋ 1<br />             到循环尾 ()<br />         .否则<br /> <br />         .如果结束<br /> <br /> <br /> <br /> <br /> <br />         脚本运行行数 ＝ 脚本运行行数 ＋ 1<br /> <br /> <br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .判断循环尾 ()

初夏喔

你线程里面要判断窗口是不是关闭了

xygugu

初夏喔 发表于 2022-3-11 18:50
你线程里面要判断窗口是不是关闭了

这么改？求解  还有不同步 怎么解决

Suky

在线程读取的组件所在窗口即将被销毁事件中，结束该线程


补充内容 (2022-3-11 19:56):
先销毁线程再销毁窗口，就不会出现结束程序的时候先把窗口销毁，线程在窗口后面销毁出现错误提示的问题

冰棍好烫啊

线程_销毁()

冰棍好烫啊

或者直接 在 将被关闭 事件里面 写

  

结束 ()

结束()

xygugu

冰棍好烫啊 发表于 2022-3-11 20:22
或者直接 在 将被关闭 事件里面 写 结束()

没用  写了一样

走一回

1、线程速度太快，相对独立于主窗口运行，主窗口关闭，线程还在运行，调用主窗口中的组件或窗口时就会因为调用不到而出错；
2、窗口上的列表框之类的组件没有线程快，估计很难同步。

xygugu

走一回 发表于 2022-3-12 00:39
1、线程速度太快，相对独立于主窗口运行，主窗口关闭，线程还在运行，调用主窗口中的组件或窗口时就会因为 ...

有解决办法嘛？蓝瘦香菇

xygugu

没有懂的教下咋解决吗