分享一个超级列表框简单进度条

孤独的根号

.版本 2
.支持库 iext</blockquote></div>
[e=0].版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 几行, 整数型
.局部变量 几列显示, 整数型
.局部变量 几行显示, 整数型
.局部变量 n, 整数型

测试几行 ＝ 10
几列显示 ＝ 1
.计次循环首 (几行显示, n)
    .计次循环首 (10, i)
        更新进度条 (n － 1, i, 10, 几列显示)
        延时 (500)
    .计次循环尾 ()
.计次循环尾 ()


.子程序 更新进度条
.参数 表项索引, 整数型
.参数 当前进度, 整数型
.参数 最大进度, 整数型
.参数 进度列索引, 整数型, , // 进度条所在的列索引
.局部变量 进度百分比, 双精度小数型
.局部变量 进度条长度, 整数型
.局部变量 进度符号数, 整数型
.局部变量 进度文本, 文本型
.局部变量 插入, 整数型

进度百分比 ＝ 当前进度 ÷ 最大进度
进度条长度 ＝ 15
进度符号数 ＝ 取整 (进度百分比 × 进度条长度)
进度文本 ＝ 取重复文本 (进度符号数, “█”)
进度文本 ＝ 进度文本 ＋ 取重复文本 (进度条长度 － 进度符号数, “※”)
处理事件 ()
插入 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 进度列索引, 进度文本)
超级列表框1.置列标题 (1, “当前进度：” ＋ 到文本 (进度百分比 × 10))

孤独的根号

感觉应该还有优化空间，这是经过热心易友修改过的@samll88  

xiang135666

不能用啊，发个源码啊.e

查过

感谢分享，很给力！~

豆豆灰常开心

感谢楼主分享！

胖子葛格

感谢大神分享~！

轻描淡写zzz

感谢分享，

李泽勇2

这样的方式最右边会打省略符号。

查过

感谢分享，很给力！~

豆豆灰常开心

感谢发布原创作品，精易因你更精彩！6666666666666

wh1234567

感谢分享