功能:
自由添加菜單,項目
自動提取圖標
自動提取項目名稱
仿QQ伸縮功能
拖放對象1.注冊拖放控件 (超級列表框1.取窗口句柄 ())
左邊 = 取屏幕寬度 () - 350
置托盤圖標 (圖標, “工具箱V1.1完美版”)
aa = 到文本 (讀入文件 (取運行目錄 () + “\deng.deng”))
bb = 分割文本 (aa, #換行符, )
a = 到整數 (讀配置項 (取運行目錄 () + “\pz.ini”, “菜單”, “菜單數”, ))
.計次循環首 (a, b)
卷簾式菜單1.加入菜單 (讀配置項 (取運行目錄 () + “\pz.ini”, “名稱”, 到文本 (b - 1), ), , )
.計次循環尾 ()
.計次循環首 (取數組成員數 (bb), a)
卷簾式菜單1.加入項目 (取文本右邊 (bb [a], 取文本長度 (bb [a]) - (尋找文本 (bb [a], “BsF”, , 假) + 2)), 到整數 (取文本左邊 (bb [a], 尋找文本 (bb [a], “BsF”, , 假) - 1)), , , )
.計次循環尾 ()
卷簾式菜單1.現行選中菜單 = 到整數 (讀配置項 (取運行目錄 () + “\pz.ini”, “開機菜單”, “開機”, ))
超級列表框1.全部刪除 ()
超級列表框1.頂邊 = 40 + 卷簾式菜單1.現行選中菜單 × 23
超級列表框1.高度 = 400 - 卷簾式菜單1.取菜單數 () × 23 + 23
圖片 = 超級列表框1.圖片組
.計次循環首 (卷簾式菜單1.取項目數 (卷簾式菜單1.現行選中菜單), d)
圖片11 = 提取加入圖片 (圖片, 卷簾式菜單1.取項目名稱 (d - 1, 卷簾式菜單1.現行選中菜單), , 假)
文本 = 分割文本 (卷簾式菜單1.取項目名稱 (d - 1, 卷簾式菜單1.現行選中菜單), “\”, )
超級列表框1.圖片組 = 圖片
超級列表框1.插入表項 (, 取文本左邊 (文本 [取數組成員數 (文本)], 尋找文本 (文本 [取數組成員數 (文本)], “.”, , 假) - 1), 圖片11, , , )
.計次循環尾 ()