.版本 2
.支持库 EThread
.程序集 窗口程序集_启动窗口
.程序集变量 集_计次, 整数型
.程序集变量 集_运行总次数, 整数型
.程序集变量 集_线程句柄, 整数型, , "0"
.子程序 _按钮1_被单击
.局部变量 局_线程句柄, 整数型
.局部变量 lRow, 整数型
.局部变量 局_文件编号, 整数型
集_计次 = 0
集_运行总次数 = 1056 ' '为什么,编译后,运行。 在我的电脑上,“_标签_主线程_反馈事件”里加了“处理事件”,那么就不能超过 1056 超过了,就会闪退。如果在“_标签_主线程_反馈事件”里不加 “处理事件”,只能最大 1534 如果大于 1534 则后面的没有执行,真奇怪!
重定义数组 (集_线程句柄, 假, 集_运行总次数)
.计次循环首 (集_运行总次数, lRow)
局_文件编号 = 打开内存文件 ()
写出数据 (局_文件编号, “第一个参数”, “第二个参数”, 3, “第四个参数”, lRow)
启动线程 (&子程序1, 局_文件编号, 局_线程句柄)
集_线程句柄 [lRow] = 局_线程句柄
' '等待线程 (局_线程句柄, ) ' '使用了等待线程,就不会崩溃
关闭线程句柄 (局_线程句柄)
.计次循环尾 ()
标题 = “启动线程完毕”
.子程序 子程序1
.参数 参_文件编号, 整数型
.局部变量 局_第一个参数, 文本型</