当前位置:编程学习 > VB >>

如何取得菜单栏里按钮的句柄,用sendmessage该怎么点击它?

菜单栏里的文件,编辑,查看等等按钮用工具直接查看不到句柄,该如何用sendmessage或者postmessage发送指令点击呢?
请高手赐教 巫师如果您进了请加我QQ好吗?真的希望您能多多的指导,向往和您学习!1719385666 谢谢  使用GetMenu和GetSubMenu可以获取窗体菜单的句柄。 我已经用getmenu和getsubmenu取到了句柄,可是用sendmessage发送命令消息还是没有反应
怎么回事呢?

Option Explicit
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
    Me.Caption = "Command1_Click"
End Sub

Private Sub Command2_Click()
    '模拟实现鼠标按下和探起,就等于实现了一次鼠标单击。
    '你可以把其中的:Command1.hwnd替换成你的菜单句柄即可。
    PostMessage Command1.hwnd, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
    PostMessage Command1.hwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&
End Sub

postmessage这么写的代码昨天我也试过了,也没有成功,感觉可能是我得到的那个菜单句柄有问题,可自己又找不出来了 哎  这个论坛很火啊,以后要经常来
引用 4 楼 meitianxueyidian 的回复:
postmessage这么写的代码昨天我也试过了,也没有成功,感觉可能是我得到的那个菜单句柄有问题,可自己又找不出来了 哎

你试一试SPY++来查找一下句柄,然后试一试,先验证PostMessage代码是否正确
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,