易語言卷簾式菜單項目圖標

這是加入程序名稱和圖標的代碼，妳可以參考圖標的加入：

.程序集 窗口程序集1

.程序集變量 軟件名稱, 文本型, , "0"

.程序集變量 軟件名稱1, 文本型, , "0"

.程序集變量 軟件圖標, 字節集

.程序集變量 軟件圖標1, 字節集

.程序集變量 軟件圖標2, 字節集

.版本 2

.支持庫 iext2

.支持庫 iext3

.子程序 _添加_被選擇

.局部變量 計次變量, 整數型

.如果 (通用對話框1.打開 () ＝ 真)

軟件圖標 ＝ 建空圖片組 (32, 32)

軟件圖標1 ＝ 建空圖片組 (32, 32)

.如果 (取文件內圖標數 (通用對話框1.文件名) ＞ 0)

.計次循環首 (取文件內圖標數 (通用對話框1.文件名), 計次變量)

提取加入圖片 (軟件圖標, 通用對話框1.文件名, 計次變量 － 1)

.計次循環尾 ()

.否則

.如果結束

.計次循環首 (取圖片組圖片數 (軟件圖標), 計次變量)

加入圖片 (軟件圖標1, 取圖片組圖片 (軟件圖標, 計次變量 － 1, ), )

.計次循環尾 ()

加入圖片 (軟件圖標2, 取圖片組圖片 (軟件圖標, 0, ), )

軟件名稱 ＝ 分割文本 (通用對話框1.文件名, “\”, )

軟件名稱1 ＝ 分割文本 (軟件名稱 [取數組成員數 (軟件名稱)], “.”, )

卷簾式菜單1.項目圖標圖片組 ＝ 軟件圖標2

全部關閉 ()

打開 (取運行目錄 () ＋ “\軟件管理.edb”, “軟件管理”, , , , , )

加空記錄 ()

寫 (#軟件名稱, 軟件名稱1 [1])

寫 (#軟件路徑, 通用對話框1.文件名)

寫 (#軟件圖標, 取圖片組圖片 (軟件圖標, 0, ))

寫 (#軟件分類, 卷簾式菜單1.取菜單名稱 (卷簾式菜單1.現行選中菜單))

卷簾式菜單1.加入項目 (讀 (#軟件名稱), 菜單現行選中項, , 取圖片組圖片數 (軟件圖標2) － 1, )

.否則

.如果結束

全部關閉 ()

上一篇:在網頁制作是如何實現圖片切換

下一篇:zImage和uImage的區別