带菜单选项的文件夹内图片批量导入超级列表框

实现的功能： 双击弹出菜单，一键批量导入文件夹内的图片到超级列表框，可以删除选中或者全部删除。

文件_枚举 (取运行目录 () ＋ “\image\”, “*.jpg”, 数组, 真) ' 枚举出要导入的图片数量
' 调试输出 (数组)
.计次循环首 (取数组成员数 (数组), i)
' y ＝ 数组 [i]
' 调试输出 (y)
加入图片 (图片组变量, 读入文件 (到文本 (数组 [i])), ) ' 加入到变量“图片组变量”中
.计次循环尾 ()
超级列表框1.全部删除 ()
超级列表框1.图片组 ＝ 图片组变量 ' 添加到超级列表框的图片组内
.如果真 (取图片组图片数 (图片组变量) ＞ 0)
.计次循环首 (取图片组图片数 (图片组变量), x)
超级列表框1.插入表项 (x － 1, , , , , )
超级列表框1.置图片 (x － 1, 0, x － 1) ' 把图片加入到超级列表框中
超级列表框1.置标题 (x － 1, 0, 到文本 (x)) ' 添加图片的标题，给图片编个号
.计次循环尾 ()