导入文件夹图片到超级列表框

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