超级列表框我写的效率太慢，跪求优化

74520

  

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

变量名	类 型	静态	数组	备 注
局_目录数组	文本型		0
局_计次	整数型
局_索引	整数型
图片组	字节集
图片路径	字节集
图片名字	文本型		0
图片计次	整数型
图片索引	整数型

' 启动线程 (&子程序1, , )
目录_枚举子目录 (取运行目录 () ＋ “\新建文件夹\”, 局_目录数组, 真)
如果真 (图片组 ＝ {  })
图片组 ＝ 建空图片组 (256, 160)
计次循环首 (取数组成员数 (局_目录数组), 局_计次)
如果真 (子程序_检查表项是否存在 (超级列表框1, 文件_取文件名 (局_目录数组 [局_计次])) ＝ 假)
计次循环首 (文件_枚举 (局_目录数组 [局_计次], “*.png|*.jpg|*.jpeg|*.bmp|*.gif”, 图片名字, 真, 假, 假), 图片计次)
图片路径 ＝ 图片_缩放 (读入文件 (图片名字 [图片计次]), 256, 160, 真)
图片索引 ＝ 加入图片 (图片组, 图片路径, )
超级列表框1.图片组 ＝ 图片组
计次循环尾 ()
局_索引 ＝ 超级列表框1.插入表项 (-1, , 0, , , )
超级列表框1.置标题 (局_索引, 0, 文件_取文件名 (局_目录数组 [局_计次]))
超级列表框1.置图片 (局_索引, 0, 图片索引)

计次循环尾 ()

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

.版本 2<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局_目录数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_索引, 整数型<br /> .局部变量 图片组, 字节集<br /> .局部变量 图片路径, 字节集<br /> .局部变量 图片名字, 文本型, , "0"<br /> .局部变量 图片计次, 整数型<br /> .局部变量 图片索引, 整数型<br /> <br /> ' 启动线程 (&子程序1, , )<br /> <br /> 目录_枚举子目录 (取运行目录 () ＋ “\新建文件夹\”, 局_目录数组, 真)<br /> .如果真 (图片组 ＝ {  })<br />     图片组 ＝ 建空图片组 (256, 160)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (局_目录数组), 局_计次)<br />     .如果真 (子程序_检查表项是否存在 (超级列表框1, 文件_取文件名 (局_目录数组 [局_计次])) ＝ 假)<br />         .计次循环首 (文件_枚举 (局_目录数组 [局_计次], “*.png|*.jpg|*.jpeg|*.bmp|*.gif”, 图片名字, 真, 假, 假), 图片计次)<br />             图片路径 ＝ 图片_缩放 (读入文件 (图片名字 [图片计次]), 256, 160, 真)<br />             图片索引 ＝ 加入图片 (图片组, 图片路径, )<br />             超级列表框1.图片组 ＝ 图片组<br />         .计次循环尾 ()<br />         局_索引 ＝ 超级列表框1.插入表项 (-1, , 0, , , )<br />         超级列表框1.置标题 (局_索引, 0, 文件_取文件名 (局_目录数组 [局_计次]))<br />         超级列表框1.置图片 (局_索引, 0, 图片索引)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

新建文件夹.rar (1.93 MB, 下载次数: 19)

2022-1-13 17:19 上传

点击文件名下载附件

超级萌新

例程.e (920.98 KB, 下载次数: 86)

2022-1-13 18:03 上传

点击文件名下载附件 非常快，自行测试吧，把你的图片缩放换掉了





补充内容 (2022-1-13 18:08):
我只改了启动窗口创建完毕的，子程序自己照着修改一下吧

夜华

枚举 成员数 计次循环写出来 多与少没必要显示出来 超级列表框显示除了名字啥都干不了没啥用的

超级萌新

你的问题是图片缩放的问题，我眼睛一下算法

补充内容 (2022-1-13 17:37):
我研究一下

七彩色工作室

在循环前后加上

超级列表框1.禁止重画()
'循环代码
超级列表框1.允许重画()
超级列表框1.刷新显示()

蛀牙

  

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

变量名	类 型	静态	数组	备 注
目录数组	文本型		0
i	整数型
表项	整数型
图片组	字节集
图片数组	文本型		0
图片索引	整数型

图片组 ＝ 建空图片组 (256, 160)
目录_枚举子目录 (取运行目录 () ＋ “\新建文件夹\”, 目录数组, 真)
计次循环首 (取数组成员数 (目录数组), i)
表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 文件_取文件名 (目录数组 [i]))
如果真 (文件_枚举 (目录数组 [i], “*.png|*.jpg|*.jpeg|*.bmp|*.gif”, 图片数组, 真, 假, 假) ＞ 0)
图片索引 ＝ 加入图片 (图片组, 图片_缩放 (读入文件 (图片数组 [1]), 256, 160, 真), )
超级列表框1.图片组 ＝ 图片组
超级列表框1.置图片 (表项, 0, 图片索引)

计次循环尾 ()

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

.版本 2<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 目录数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 表项, 整数型<br /> .局部变量 图片组, 字节集<br /> .局部变量 图片数组, 文本型, , "0"<br /> .局部变量 图片索引, 整数型<br /> <br /> 图片组 ＝ 建空图片组 (256, 160)<br /> 目录_枚举子目录 (取运行目录 () ＋ “\新建文件夹\”, 目录数组, 真)<br /> .计次循环首 (取数组成员数 (目录数组), i)<br />     表项 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (表项, 0, 文件_取文件名 (目录数组 <i>))<br />     .如果真 (文件_枚举 (目录数组 <i>, “*.png|*.jpg|*.jpeg|*.bmp|*.gif”, 图片数组, 真, 假, 假) ＞ 0)<br />         图片索引 ＝ 加入图片 (图片组, 图片_缩放 (读入文件 (图片数组 [1]), 256, 160, 真), )<br />         超级列表框1.图片组 ＝ 图片组<br />         超级列表框1.置图片 (表项, 0, 图片索引)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2022-1-13 17:50):
如果你是觉得，双击软件之后为什么软件没立即显示的话，
可以在 _启动窗口_创建完毕 下面直接加一句  "可视=真" 就行了.

帅气与大侠

写法没问题，是易语言的图片组速度太慢，且插入的图片组越多速度越慢