取圖片中的圖標 到畫板、到圖標組、到超級列表框 整體效果如下圖：

程序源碼如下：

.程序集 窗口程序集1

.程序集變量 圖片號

.程序集變量 畫板, 畫板, , "0"

.程序集變量 圖片組, 字節(jié)集

.程序集變量 個數(shù), 整數(shù)型

.子程序 __啟動窗口_創(chuàng)建完畢

圖片號 = 載入圖片 (#圖片1)

畫板_圖標組.寬度 = 畫板_圖標組.取圖片寬度 (圖片號)

畫板_圖標組.高度 = 畫板_圖標組.取圖片高度 (圖片號)

個數(shù) = 畫板_圖標組.取圖片寬度 (圖片號) ÷ 畫板_圖標組.取圖片高度 (圖片號)

調(diào)試輸出 (畫板_圖標組.取圖片寬度 (圖片號), 畫板_圖標組.取圖片高度 (圖片號), 個數(shù))

畫板_圖標組.畫圖片 (圖片號, 0, 0, , , )

卸載圖片 (圖片號)

圖片組 = 建空圖片組 (16, 16)

.子程序 _按鈕3_被單擊

.局部變量 局畫板, 畫板

.局部變量 i, 整數(shù)型

清除數(shù)組 (畫板)

.計次循環(huán)首 (個數(shù), i)

復(fù)制窗口組件 (畫板_母板, 局畫板)

加入成員 (畫板, 局畫板)

畫板 [i].可視 = 真

畫板 [i].左邊 = 20 × i - 15

畫板 [i].自動重畫 = 真

.判斷開始 (i = 1)

畫板_圖標組.復(fù)制 (0, 0, 16, 16, 畫板 [i], 0, 0, )

.判斷 (i = 2)

畫板_圖標組.復(fù)制 (16 + 1, 0, 16, 16, 畫板 [i], 0, 0, )

.默認

畫板_圖標組.復(fù)制 (16 × i + 1, 0, 16, 16, 畫板 [i], 0, 0, )

.判斷結(jié)束

加入圖片 (圖片組, 畫板 [i].取圖片 (16, 16), )

超級列表框1.插入表項 (, 到文本 (i), 取隨機數(shù) (0, 個數(shù)), , , )

.計次循環(huán)尾 ()

' 調(diào)試輸出 (取數(shù)組成員數(shù) (畫板))

調(diào)試輸出 (取圖片組圖片數(shù) (圖片組))

' 調(diào)試輸出 (寫到文件 (“r:/a.eil”, 圖片組))

超級列表框1.圖片組 = 圖片組

.圖片 圖片1, , 這個是圖標圖片BMP格式的

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