|
|

楼主 |
发表于 昨天 21:56
|
显示全部楼层
新疆维吾尔自治区昌吉回族自治州
优化了一下代码
.版本 2
.DLL命令 选中, 整数型, "user32.dll", "CheckMenuItem"
.参数 hMenu, 整数型, , 菜单句柄
.参数 wIDCheckItem, 整数型, , 菜单编号
.参数 wCheck, 整数型, , MF_CHECKED=8选中 MF_UNCHECKED=0 取消
.DLL命令 取子菜单句柄, 整数型, "user32.dll", "GetSubMenu"
.参数 hMenu, 整数型
.参数 nPos, 整数型
.DLL命令 取菜单, 整数型, "user32.dll", "GetMenu"
.参数 hwnd, 整数型
把这段代码放到 加载皮肤 程序里面
.版本 2
.局部变量 菜单句柄, 整数型
.局部变量 子句柄, 整数型
菜单句柄 = 取菜单 (_启动窗口.取窗口句柄 ())
子句柄 = 取子菜单句柄 (菜单句柄, 0)
.如果真 (是否选择 ≠ 0)
选中 (子句柄, 是否选择, 0)
.如果真结束
选中 (子句柄, 20000 + 编号, 8)
是否选择 = 20000 + 编号
把 初始化 程序里 子菜单换行删除
.版本 2
.计次循环首 (取数组成员数 (文本), i)
AppendMenu (格式子菜单, 0, 20000 + i, 文本 )
.计次循环尾 ()
这是删除后的样子
|
|