易语言 多线程 c00005,多线程与打开内存文件，坑得我泪崩！

.版本 2

.支持库 EThread

.程序集 窗口程序集_启动窗口

.程序集变量 集_计次, 整数型

.程序集变量 集_运行总次数, 整数型

.程序集变量 集_线程句柄, 整数型, , "0"

.子程序 _按钮1_被单击

.局部变量 局_线程句柄, 整数型

.局部变量 lRow, 整数型

.局部变量 局_文件编号, 整数型

集_计次 ＝ 0

集_运行总次数 ＝ 1056  ' '为什么，编译后，运行。 在我的电脑上，“_标签_主线程_反馈事件”里加了“处理事件”，那么就不能超过 1056 超过了，就会闪退。如果在“_标签_主线程_反馈事件”里不加 “处理事件”，只能最大 1534  如果大于  1534 则后面的没有执行，真奇怪！

重定义数组 (集_线程句柄, 假, 集_运行总次数)

.计次循环首 (集_运行总次数, lRow)

局_文件编号 ＝ 打开内存文件 ()

写出数据 (局_文件编号, “第一个参数”, “第二个参数”, 3, “第四个参数”, lRow)

启动线程 (&子程序1, 局_文件编号, 局_线程句柄)

集_线程句柄 [lRow] ＝ 局_线程句柄

' '等待线程 (局_线程句柄, )  ' '使用了等待线程，就不会崩溃

关闭线程句柄 (局_线程句柄)

.计次循环尾 ()

标题 ＝ “启动线程完毕”

.子程序 子程序1

.参数 参_文件编号, 整数型

.局部变量 局_第一个参数, 文本型</