取图片中的图标 到画板、到图标组、到超级列表框 整体效果如下图：
程序源码如下：
.程序集 窗口程序集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/