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