易语言多线程使用
.版本 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)
.计次循环尾 ()
页:
[1]