今天偶然发现一个有趣的符号然后就有了大胆的想法

孤独的根号

今天偶然发现一个有趣的符号，"█”   ，忽然想到如果用这个符号来实现超级列表框的进度条，会不会很有趣
各路大神，如果有闲暇无聊的时间可以写个例子给论坛的源码+1，因为我是菜鸡，虽然经常逛论坛，但是实力低微搞不出来

samll88

孤独的根号 发表于 2025-3-29 01:00

  

[/quote]
[e=0].版本 2

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

变量名	类 型	静态	数组	备 注
i	整数型
几行	整数型
几列显示	整数型
几行显示	整数型
n	整数型

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

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

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

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

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext</blockquote></div><br /> [e=0].版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 几行, 整数型<br /> .局部变量 几列显示, 整数型<br /> .局部变量 几行显示, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 测试几行 ＝ 10<br /> 几列显示 ＝ 1<br /> .计次循环首 (几行显示, n)<br />     .计次循环首 (10, i)<br />         更新进度条 (n － 1, i, 10, 几列显示)<br />         延时 (500)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 更新进度条<br /> .参数 表项索引, 整数型<br /> .参数 当前进度, 整数型<br /> .参数 最大进度, 整数型<br /> .参数 进度列索引, 整数型, , // 进度条所在的列索引<br /> .局部变量 进度百分比, 双精度小数型<br /> .局部变量 进度条长度, 整数型<br /> .局部变量 进度符号数, 整数型<br /> .局部变量 进度文本, 文本型<br /> .局部变量 插入, 整数型<br /> <br /> 进度百分比 ＝ 当前进度 ÷ 最大进度<br /> 进度条长度 ＝ 15<br /> 进度符号数 ＝ 取整 (进度百分比 × 进度条长度)<br /> 进度文本 ＝ 取重复文本 (进度符号数, “█”)<br /> 进度文本 ＝ 进度文本 ＋ 取重复文本 (进度条长度 － 进度符号数, “※”)<br /> 处理事件 ()<br /> 插入 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (表项索引, 进度列索引, 进度文本)<br /> 超级列表框1.置列标题 (1, “当前进度：” ＋ 到文本 (进度百分比 × 10))

优化了一下

孤独的根号

之前也在论坛看过其他大佬发布了漂亮的进度条功能，但是这样会不会更简单暴力，还能多线程

aipca

我记得有现成的|符号做进度条的 ||||||| 效果也是可以的

孤独的根号

aipca 发表于 2025-3-29 00:34
我记得有现成的|符号做进度条的 ||||||| 效果也是可以的

感觉这个黑色的方块更合适，好像命令行都是用这个黑色的方块或者白色的方块

孤独的根号

  

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

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

计次循环首 (10, i)
更新进度条 (0, i, 10, 1)
延时 (500)
计次循环尾 ()

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

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

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

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (10, i)<br />     更新进度条 (0, i, 10, 1)<br />     延时 (500)<br /> .计次循环尾 ()<br /> <br /> .子程序 更新进度条<br /> .参数 表项索引, 整数型<br /> .参数 当前进度, 整数型<br /> .参数 最大进度, 整数型<br /> .参数 进度列索引, 整数型, ,   // 进度条所在的列索引<br /> .局部变量 进度百分比, 双精度小数型<br /> .局部变量 进度条长度, 整数型<br /> .局部变量 进度符号数, 整数型<br /> .局部变量 进度文本, 文本型<br /> <br /> <br /> 进度百分比 ＝ 当前进度 ÷ 最大进度<br /> <br /> <br /> 进度条长度 ＝ 15<br /> 进度符号数 ＝ 取整 (进度百分比 × 进度条长度)<br /> <br /> <br /> 进度文本 ＝ 取重复文本 (进度符号数, “█”)<br /> 进度文本 ＝ 进度文本 ＋ 取重复文本 (进度条长度 － 进度符号数, “※”)<br /> 处理事件 ()<br /> <br /> 超级列表框1.置标题 (表项索引, 进度列索引, 进度文本)<br /> <br /> 超级列表框1.置列标题 (1, “当前进度：” ＋ 到文本 (进度百分比 × 10))

大概就是这个意思，欢迎有闲暇时间的朋友们优化

quary

我用的>>>  感觉你这个好看  一会改用这个符号