开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 372|回复: 9
收起左侧

[已解决] 获取外部菜单栏图标菜单栏复选框多选框判断是否勾选

 关闭 [复制链接]
结帖率:95% (18/19)
发表于 2024-7-10 10:45:09 | 显示全部楼层 |阅读模式   浙江省丽水市
200精币
001.png
目前点击是正常实现的,但是获取这个前面是否勾选的状态失败了。
GetMenuState返回的结果一直是0 没有变化。
GetMenuItemInfoA 没看懂怎么用。。。
有大佬知道怎么解决吗?

不一定非要用GetMenuItemInfoA特定函数,只要能获取即可。。感谢各位大佬!

GetMenuState好像必须要让菜单显示一下才会变化获取最新的状态,单纯发消息不会引起变化。。。

最佳答案

查看完整内容

两个结合起来就行,这应该你要的效果,之前上传的代码有处注释忘记取消了 [e=0].版本 2 .支持库 spec .子程序 _按钮1_被单击 .局部变量 计次, 整数型 .局部变量 菜单索引, 整数型 窗口句柄 = FindWindowA (0, “无标题 - 记事本”) ' Win98及WinXP是这个标题,W2k请修改标题名 调试输出 (窗口句柄) 菜单句柄 = GetMenu (窗口句柄) ' 取外部程序菜单句柄 调试输出 (菜单句柄) 菜单一 = GetSubMenu (菜单句柄, 3) ' 从0开始 ...

回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳

签到天数: 2 天

发表于 2024-7-10 10:45:10 | 显示全部楼层   陕西省西安市
两个结合起来就行,这应该你要的效果,之前上传的代码有处注释忘记取消了
录制_2024_07_10_13_42_29_740.gif
  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
计次整数型 
菜单索引整数型 
窗口句柄 = FindWindowA (0, “无标题 - 记事本”)  ' Win98及WinXP是这个标题,W2k请修改标题名
调试输出 (窗口句柄)
菜单句柄 = GetMenu (窗口句柄)  ' 取外部程序菜单句柄
调试输出 (菜单句柄)
菜单一 = GetSubMenu (菜单句柄, 3)  ' 从0开始计算,表示第横向第几个菜单选项 0为第一个
调试输出 (1, 菜单一)
菜单索引 = 0
计次循环首 (30, 计次)
调试输出 (1, 计次 - 1, 菜单_取标题 (菜单一, 计次 - 1))
如果真 (寻找文本 (菜单_取标题 (菜单一, 计次 - 1), “状态栏”, , ) > -1)
' 菜单二 = GetSubMenu (菜单一, i - 1)  ' 从0开始计算 对应横向下拉第几个选项后第几行菜单选项
菜单索引 = 计次 - 1
跳出循环 ()

计次循环尾 ()
菜单项目 = GetMenuItemID (菜单一, 菜单索引)
菜单_点击 (窗口句柄, 菜单一, 菜单索引)
如果 (GetMenuState (菜单一, 菜单索引, #MF_BYPOSITION ) = 8)
CheckMenuItem (菜单一, 菜单项目, 0)
CheckMenuItem (菜单一, 菜单项目, 8)
调试输出 (“勾选状态:”, GetMenuState (菜单一, 菜单索引, #MF_BYPOSITION ))


i支持库列表   支持库注释   
spec特殊功能支持库



补充内容 (2024-7-10 13:50):
从动画可以看到,调试输出的状态在正确变化,勾选与否和底部的状态栏是否显示也有正确响应

评分

参与人数 1荣誉 +1 收起 理由
笨潴 + 1 热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻!

查看全部评分

回复

使用道具 举报

结帖率:95% (18/19)

签到天数: 8 天

 楼主| 发表于 2024-7-10 10:49:47 | 显示全部楼层   浙江省丽水市
忘记传源码了
test.e (899.18 KB, 下载次数: 6)
回复

使用道具 举报

签到天数: 2 天

发表于 2024-7-10 12:59:31 | 显示全部楼层   陕西省西安市

GetMenuState函数是没问题的,关键是PostMessageA只是将消息放入消息队列,实际的状态改变需要等到消息循环处理该消息。如果消息循环还没有运行到该消息,状态不会变。
测试发现,手动点开菜单栏会触发消息处理,此时再点击按钮,可看到调试消息输出的状态有变

PostMessageA(精易模块的菜单_点击也是该方式)都无法实时改变状态,需要手动点开菜单才触发消息处理
建议改用CheckMenuItem改变状态,代码如下


  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
计次整数型 
菜单索引整数型 
窗口句柄 = FindWindowA (0, “无标题 - 记事本”)  ' Win98及WinXP是这个标题,W2k请修改标题名
调试输出 (窗口句柄)
菜单句柄 = GetMenu (窗口句柄)  ' 取外部程序菜单句柄
调试输出 (菜单句柄)
菜单一 = GetSubMenu (菜单句柄, 3)  ' 从0开始计算,表示第横向第几个菜单选项 0为第一个
调试输出 (1, 菜单一)
菜单索引 = 0
计次循环首 (30, 计次)
调试输出 (1, 计次 - 1, 菜单_取标题 (菜单一, 计次 - 1))
如果真 (寻找文本 (菜单_取标题 (菜单一, 计次 - 1), “状态栏”, , ) > -1)
' 菜单二 = GetSubMenu (菜单一, i - 1)  ' 从0开始计算 对应横向下拉第几个选项后第几行菜单选项
菜单索引 = 计次 - 1
跳出循环 ()

计次循环尾 ()
菜单项目 = GetMenuItemID (菜单一, 菜单索引)
' 菜单_点击 (窗口句柄, 菜单一, 菜单索引)
如果 (GetMenuState (菜单一, 菜单索引, #MF_BYPOSITION ) = 8)
CheckMenuItem (菜单一, 菜单项目, 0)
CheckMenuItem (菜单一, 菜单项目, 8)
调试输出 (“勾选状态:”, GetMenuState (菜单一, 菜单索引, #MF_BYPOSITION ))


i支持库列表   支持库注释   
spec特殊功能支持库

  
DLL命令名返回值类型公开备 注
CheckMenuItem整数型 
DLL库文件名:
user32.dll
在DLL库中对应命令名:
CheckMenuItem
参数名类 型传址数组备 注
菜单句柄整数型
菜单索引整数型
uFlags 


点评

那是否有方法可以用api直接弹出这个菜单 触发手动点开菜单栏的效果呢?   浙江省丽水市  发表于 2024-7-10 13:22
那大佬,用sendMessageA呢?   浙江省丽水市  发表于 2024-7-10 13:17
感谢大佬回复,有问题的,在楼下。好像没有回复到您   浙江省丽水市  发表于 2024-7-10 13:16
回复

使用道具 举报

结帖率:95% (18/19)

签到天数: 8 天

 楼主| 发表于 2024-7-10 13:15:59 | 显示全部楼层   浙江省丽水市
002.jpg
感谢大佬回复,但是有2个问题。
1、CheckMenuItem并不能设置这个勾选状态。 调试输出是8的时候,其实那个勾并没有勾起来。反过来显示是0的时候也并没有取消勾选。
2、GetMenuState获取的状态并不准确。需要手动点开一下这个状态栏的菜单,再关闭,获取到的状态才是准确的。。。

点评

之前代码提交时有一行忘记取消注释了,具体效果请看动态gif   陕西省西安市  发表于 2024-7-10 13:47
回复

使用道具 举报

签到天数: 2 天

发表于 2024-7-10 13:55:00 | 显示全部楼层   陕西省西安市
这是我测试代码用的记事本,不清楚记事本版本不同会不会有影响

补充内容 (2024-7-10 13:57):
我win11自带的记事本、画板等软件出了问题不能用,一直没空重装,这个是win10中提取的记事本

notepad.zip

189.34 KB, 下载次数: 2

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表