超级列表框低配进度条，可以多线程

孤独的根号

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

许可证 ＝ 创建进入许可证 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
线程句柄	整数型
表项索引	整数型

计次循环首 (5, i)  ' 启动5个线程
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 0, “任务” ＋ 到文本 (表项索引))
启动线程 (&任务线程, 表项索引, 线程句柄)
延时 (100)  ' 避免同时创建线程造成资源竞争
计次循环尾 ()

子程序名	返回值类型	公开	备 注
任务线程
参数名	类 型	参考	可空	数组	备 注
表项索引	整数型

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (10, i)
更新进度条 (表项索引, i, 10, 1)  ' 进度列索引设为1
延时 (500)  ' 模拟任务处理
计次循环尾 ()

子程序名	返回值类型	公开	备 注
更新进度条
参数名	类 型	参考	可空	数组	备 注
表项索引	整数型
当前进度	整数型
最大进度	整数型
进度列索引	整数型

变量名	类 型	静态	数组	备 注
进度百分比	双精度小数型
进度条长度	整数型
进度符号数	整数型
进度文本	文本型

进度百分比 ＝ 当前进度 ÷ 最大进度
进度条长度 ＝ 超级列表框1.取列宽 (1) ÷ 13
进度符号数 ＝ 取整 (进度百分比 × 进度条长度)
进度文本 ＝ 取重复文本 (进度符号数, “█”)
进度文本 ＝ 进度文本 ＋ 取重复文本 (进度条长度 － 进度符号数, “※”)
进入许可区 (许可证)
如果真 (表项索引 ≥ 0 且 表项索引 ＜ 超级列表框1.取表项数 ())
超级列表框1.置标题 (表项索引, 进度列索引, 进度文本)
超级列表框1.置标题 (表项索引, 2, “进度：” ＋ 取文本右边 (“  ” ＋ 到文本 (取整 (进度百分比 × 100)), 3) ＋ “%”)
处理事件 ()
退出许可区 (许可证)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

删除进入许可证 (许可证)

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 许可证 ＝ 创建进入许可证 ()<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 线程句柄, 整数型<br /> .局部变量 表项索引, 整数型<br /> <br /> <br /> .计次循环首 (5, i)  ' 启动5个线程<br />     表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (表项索引, 0, “任务” ＋ 到文本 (表项索引))<br />     启动线程 (&任务线程, 表项索引, 线程句柄)<br />     延时 (100)  ' 避免同时创建线程造成资源竞争<br /> .计次循环尾 ()<br /> <br /> .子程序 任务线程<br /> .参数 表项索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (10, i)<br />     更新进度条 (表项索引, i, 10, 1)  ' 进度列索引设为1<br />     延时 (500)  ' 模拟任务处理<br /> .计次循环尾 ()<br /> <br /> .子程序 更新进度条<br /> .参数 表项索引, 整数型<br /> .参数 当前进度, 整数型<br /> .参数 最大进度, 整数型<br /> .参数 进度列索引, 整数型<br /> .局部变量 进度百分比, 双精度小数型<br /> .局部变量 进度条长度, 整数型<br /> .局部变量 进度符号数, 整数型<br /> .局部变量 进度文本, 文本型<br /> <br /> 进度百分比 ＝ 当前进度 ÷ 最大进度<br /> 进度条长度 ＝ 超级列表框1.取列宽 (1) ÷ 13<br /> <br /> 进度符号数 ＝ 取整 (进度百分比 × 进度条长度)<br /> 进度文本 ＝ 取重复文本 (进度符号数, “█”)<br /> 进度文本 ＝ 进度文本 ＋ 取重复文本 (进度条长度 － 进度符号数, “※”)<br /> <br /> 进入许可区 (许可证)<br /> .如果真 (表项索引 ≥ 0 且 表项索引 ＜ 超级列表框1.取表项数 ())<br />     超级列表框1.置标题 (表项索引, 进度列索引, 进度文本)<br />     超级列表框1.置标题 (表项索引, 2, “进度：” ＋ 取文本右边 (“  ” ＋ 到文本 (取整 (进度百分比 × 100)), 3) ＋ “%”)<br /> .如果真结束<br /> 处理事件 ()<br /> 退出许可区 (许可证)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 删除进入许可证 (许可证)

gaoqing

谢谢分享

我的yyy123

学习学习

杨明煜

学习学习！........

查过

全都是大佬~

豆豆灰常开心

全都是大佬~

renhe2018

再来看看，研究研究。

8503

        感谢分享，很给力！~

花小旭

支持支持支持支持

lm88818

感谢分享，支持开源！！！