易语言多线程使用

.版本 2
.支持库 iext
.支持库 EThread
.支持库 spec

.程序集 窗口程序集1
.程序集变量 进度, 整数型
.程序集变量 ssssss, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 记录次数, 整数型
.局部变量 索引, 整数型

.计次循环首 (6, 记录次数)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 到文本 (记录次数 － 1))

.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 次数, 整数型

.计次循环首 (3, 次数)
    启动线程 (&子程序1, 次数 － 1)
.计次循环尾 ()

.子程序 子程序1
.参数 次数, 整数型
.局部变量 记录次数, 整数型

.计次循环首 (100, 记录次数)
    超级列表框1.置标题 (次数, 1, 到文本 (记录次数) ＋ “%”)
    延迟 (1000)
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 次数, 整数型

.计次循环首 (3, 次数)
    启动线程 (&子程序1, 次数 ＋ 3 － 1)
.计次循环尾 ()