易语言超级列表框多线程源码

易语言超级列表框多线程源码

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

.程序集 窗口程序集_启动窗口
.程序集变量 许可证, 线程许可证

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 n, 整数型

' 注册个许可证
许可证 ＝ 线程_创建许可证 ()
' 假设1000条任务
.计次循环首 (1000, i)
    n ＝ 超级列表框1.插入表项 (-1, 到文本 (i), , , , )
    超级列表框1.置标题 (n, 1, 文本_取随机数字 (取随机数 (6, 12)))
    超级列表框1.置标题 (n, 2, “－”)  ' 标记为“待执行”
.计次循环尾 ()

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

.计次循环首 (到整数 (编辑框1.内容), )
    启动线程 (&run, , )  ' 有多少线程启动多少次，也不需要传递参数什么的
.计次循环尾 ()

.子程序 run, , , 执行操作子程序
.局部变量 i, 整数型

.判断循环首 (真)  ' 搞个死循环，保证一直循环下去，然后没任务时再手动跳出
    线程_进入许可区 (许可证)  ' 操作控件，要加上许可证
    i ＝ 超级列表框1.查找表项 (“－”, , 真, 2)  ' 查找“待执行”的项目
    .如果 (i ＝ -1)  ' 找不到惹...
        线程_退出许可区 (许可证)  ' 别忘了结束（跳出循环下面的代码不会执行，所以要提前写）
        跳出循环 ()
    .否则
        超级列表框1.置标题 (i, 2, “－ ”)  ' 赶紧把标题改了，要不然一会重复执行惹...为惹不影响美观，后面加个空格(俺太聪明惹...)
    .如果结束
    线程_退出许可区 (许可证)  ' 别忘了结束
    ' ...这里就是登录的主功能实现区了 开始...
    超级列表框1.置标题 (i, 2, 选择 (post (超级列表框1.取标题 (i, 1)), “√”, “×”))
    ' ...这里就是登录的主功能实现区了 结束...
.判断循环尾 ()

.子程序 post, 逻辑型, , 比如这是个POST登录的子程序
.参数 number, 文本型

' 略去1000行...
置随机数种子 ()
程序_延时 (取随机数 (10, 100))
返回 (选择 (取随机数 (0, 1) ＝ 0, 假, 真))
' 略去1000行...

.子程序 __启动窗口_将被销毁

' 最后删掉
线程_删除许可证 (许可证)

@多线程例程