html卷帘式菜单,完美的工具包，卷帘式菜单超级列表框带图标

功能：

自由添加菜单，项目

自动提取图标

自动提取项目名称

仿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, , , )

.计次循环尾 ()