Question

易语言如何在超级列表框中添加程序图标？

Answer 1

.版本
2
.支持库
iext2
.支持库
iext
.程序集
窗口程序集1
.程序集变量
图片文件名组,
文本型,
,
"0"
.程序集变量
临时图片组,
字节集
.程序集变量
图片组,
字节集,
,
"0"
.子程序
_按钮1_被单击
.局部变量
路径,
文本型
.局部变量
临时图片文件名组,
文本型,
,
"0"
.局部变量
变量,
整数型
临时图片文件名组
＝
多文件对话框
(,
“所有图片文件|*.JFIF;*.JPG;*.JPEG;*.JPE;*.BMP;*.GIF;*.ICO|JPEG
图像文件|*.JFIF;*.JPG;*.JPEG;*.JPE|MBP
位图文件
|*.BMP|GIF
动画文件|*.GIF|ICO
图标文件|*.ICO|所有文件|*.*”,
,
,
)
.如果真
(取数组成员数
(临时图片文件名组)
＝
0)

返回
()
.如果真结束
加入成员
(图片文件名组,
临时图片文件名组)
.计次循环首
(取数组成员数
(临时图片文件名组),
变量)

取图象.底图
＝
读入文件
(临时图片文件名组
[变量])

取图象.刷新显示
()

加入成员
(图片组,
快照
(取图象.取窗口句柄
(),
82,
82))

_启动窗口.刷新显示
()
.计次循环尾
()
临时图片组
＝
建空图片组
(82,
82)
.计次循环首
(取数组成员数
(图片组),
变量)

加入图片
(临时图片组,
图片组
[变量],
)
.计次循环尾
()
超级列表框1.表项
＝
{
}
超级列表框1.图片组
＝
临时图片组
.计次循环首
(取图片组图片数
(临时图片组),
变量)

超级列表框1.插入表项
(-1,
取文本右边
(图片文件名组
[变量],
取文本长度
(图片文件名组
[变量])
－
倒找文本
(图片文件名组
[变量],
“\”,
,
真)),
变量
－
1,
,
,
)
.计次循环尾
()