如何取得菜单栏里按钮的句柄,用sendmessage该怎么点击它?
菜单栏里的文件,编辑,查看等等按钮用工具直接查看不到句柄,该如何用sendmessage或者postmessage发送指令点击呢?请高手赐教 巫师如果您进了请加我QQ好吗?真的希望您能多多的指导,向往和您学习!1719385666 谢谢 使用GetMenu和GetSubMenu可以获取窗体菜单的句柄。 我已经用getmenu和getsubmenu取到了句柄,可是用sendmessage发送命令消息还是没有反应
怎么回事呢?
postmessage这么写的代码昨天我也试过了,也没有成功,感觉可能是我得到的那个菜单句柄有问题,可自己又找不出来了 哎 这个论坛很火啊,以后要经常来
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
你试一试SPY++来查找一下句柄,然后试一试,先验证PostMessage代码是否正确
补充:VB , 基础类