易语言源码取图片中的图标 到画板、超级列表框

取图片中的图标 到画板、到图标组、到超级列表框 整体效果如下图：

程序源码如下：

.程序集 窗口程序集1

.程序集变量 图片号

.程序集变量 画板, 画板, , "0"

.程序集变量 图片组, 字节集

.程序集变量 个数, 整数型

.子程序 __启动窗口_创建完毕

图片号 = 载入图片 (#图片1)

画板_图标组.宽度 = 画板_图标组.取图片宽度 (图片号)

画板_图标组.高度 = 画板_图标组.取图片高度 (图片号)

个数 = 画板_图标组.取图片宽度 (图片号) ÷ 画板_图标组.取图片高度 (图片号)

调试输出 (画板_图标组.取图片宽度 (图片号), 画板_图标组.取图片高度 (图片号), 个数)

画板_图标组.画图片 (图片号, 0, 0, , , )

卸载图片 (图片号)

图片组 = 建空图片组 (16, 16)

.子程序 _按钮3_被单击

.局部变量 局画板, 画板

.局部变量 i, 整数型

清除数组 (画板)

.计次循环首 (个数, i)

复制窗口组件 (画板_母板, 局画板)

加入成员 (画板, 局画板)

画板 [i].可视 = 真

画板 [i].左边 = 20 × i - 15

画板 [i].自动重画 = 真

.判断开始 (i = 1)

画板_图标组.复制 (0, 0, 16, 16, 画板 [i], 0, 0, )

.判断 (i = 2)

画板_图标组.复制 (16 + 1, 0, 16, 16, 画板 [i], 0, 0, )

.默认

画板_图标组.复制 (16 × i + 1, 0, 16, 16, 画板 [i], 0, 0, )

.判断结束

加入图片 (图片组, 画板 [i].取图片 (16, 16), )

超级列表框1.插入表项 (, 到文本 (i), 取随机数 (0, 个数), , , )

.计次循环尾 ()

' 调试输出 (取数组成员数 (画板))

调试输出 (取图片组图片数 (图片组))

' 调试输出 (写到文件 (“r:/a.eil”, 图片组))

超级列表框1.图片组 = 图片组

.图片 图片1, , 这个是图标图片BMP格式的

源码地址：http://qiannao.com/file/dxdong90811/45b416ec/