超级列表框载入图片,浏览框显缩略图

易语言 2020-07-21 00:06:23

超级列表框载入图片,浏览框显缩略图

临时文件路径 = 多文件对话框 (, “所有图片文件|*.JFIF;*.JPG;*.JPEG;*.JPE;*.BMP;*.GIF;*.ICO|JPEG 图像文件|*.JFIF;*.JPG;*.JPEG;*.JPE|MBP 位图文件 |*.BMP|GIF 动画文件|*.GIF|ICO 图标文件|*.ICO|所有文件|*.*”, , , )
.如果真 (取数组成员数 (临时文件路径) = 0)
返回 ()
.如果真结束
加入成员 (文件路径, 临时文件路径)
.计次循环首 (取数组成员数 (临时文件路径), 变量)
处理事件 ()
取图象.底图 = 读入文件 (临时文件路径 [变量])
.计次循环尾 ()
图象框.全部删除 ()
图象框.图片组 = { }
图象框.图片组 = 临时图片组
.计次循环首 (??? (), 变量) '
图象框.插入表项 (-1, 取文本右边 (文件路径 [变量], 取文本长度 (文件路径 [变量]) - 倒找文本 (文件路径 [变量], “\”, , 真)), 变量 - 1, , , )
.计次循环尾 ()