|
.版本 2
.子程序 菜单_修改标题, 逻辑型, 公开, 成功返回真,失败返回假;只能改子菜单标题;
.参数 菜单句柄, 整数型, , 要修改标题的菜单句柄;
.参数 菜单新标题, 文本型, , 菜单新标题
.参数 菜单索引, 整数型, , 索引从0开始;
.判断开始 (ModifyMenuA (菜单句柄, GetMenuItemID (菜单句柄, 菜单索引), 0, 0, 菜单新标题))
返回 (真)
.判断 (ModifyMenuA (菜单句柄, GetMenuItemID (菜单句柄, 菜单索引), 0, 3, 菜单新标题))
返回 (真)
.判断 (ModifyMenuA (菜单句柄, GetMenuItemID (菜单句柄, 菜单索引), 0, 8, 菜单新标题))
返回 (真)
.判断 (ModifyMenuA (菜单句柄, GetMenuItemID (菜单句柄, 菜单索引), 0, 1024, 菜单新标题))
返回 (真)
.默认
返回 (ModifyMenuA (菜单句柄, GetMenuItemID (菜单句柄, 菜单索引), 0, 2048, 菜单新标题))
.判断结束
返回 (假)
------------------------------------------------------------------------------------
原来这段可能导致修改的菜单标题出错(不能点击,或再次修改)。
改成如下就可以了。
具体不是很清楚,因为ModifyMenuA这个函数在网上的说法看起来也很别扭
测试环境windows10
-----------------------------------------------------------------------------------
.版本 2
.子程序 菜单_修改标题, 逻辑型, 公开, 成功返回真,失败返回假;只能改子菜单标题;
.参数 菜单句柄, 整数型, , 要修改标题的菜单句柄;
.参数 菜单新标题, 文本型, , 菜单新标题
.参数 菜单索引, 整数型, , 索引从0开始;
.局部变量 ID
ID = GetMenuItemID (菜单句柄, 菜单索引)
.如果真 (ID > 0)
.判断开始 (ModifyMenuA (菜单句柄, ID, 0, ID, 菜单新标题))
返回 (真)
.判断 (ModifyMenuA (菜单句柄, ID, 3, ID, 菜单新标题))
返回 (真)
.判断 (ModifyMenuA (菜单句柄, ID, 8, ID, 菜单新标题))
返回 (真)
.判断 (ModifyMenuA (菜单句柄, ID, 16, ID, 菜单新标题))
返回 (真)
.判断 (ModifyMenuA (菜单句柄, ID, 1024, ID, 菜单新标题))
返回 (真)
.默认
返回 (ModifyMenuA (菜单句柄, ID, 2048, ID, 菜单新标题))
.判断结束
.如果真结束
返回 (假) |
|
|