易语言导入图片到超级列表框

易语言 2020-04-15 15:47:53

易语言导入图片到超级列表框

文件名 = 寻找文件 (取运行目录 () + “\示例图片\*.jpg”, )
.判断循环首 (文件名 ≠ “”)
图片索引 = 加入图片 (图片组, 读入文件 (取运行目录 () + “\示例图片\” + 文件名), #白色)
文件名 = 寻找文件 (, )
.判断循环尾 ()
超级列表框1.图片组 = 图片组
.计次循环首 (图片索引 + 1, i)
超级列表框1.插入表项 (, , i - 1, , , )
.计次循环尾 ()