回覆列表
  • 1 # 藍風24

    這是加入程式名稱和圖示的程式碼,你可以參考圖示的加入:

    .程式集 視窗程式集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, )

    .否則

    .如果結束

    全部關閉 ()

  • 中秋節和大豐收的關聯?
  • 都說站在風口上豬都能飛起來,怎麼才能站在區塊鏈的風口上?