菜单栏里的文件,编辑,查看等等按钮用工具直接查看不到句柄,该如何用sendmessage或者postmessage发送指令点击呢?
请高手赐教 巫师如果您进了请加我QQ好吗?真的希望您能多多的指导,向往和您学习!1719385666 谢谢
请高手赐教 巫师如果您进了请加我QQ好吗?真的希望您能多多的指导,向往和您学习!1719385666 谢谢
解决方案 »
- 急!!!!!!!!哪位高手可以帮忙解决一下设置设置管理员权限的问题,帮帮忙啊!
- 请教如何将小数转换为时间?
- //关于访问远程ACCESS数据库的问题,查询了以前的大量的帖子,可能是我水平太差,感到无从下手,请看我的需求。
- 初学者关于“安装程序”的两个问题,请帮忙解答,谢谢!
- 窗体属性BorderStyle = 0时,如何在窗体右下脚控制窗体大小?
- 图象合并:将PICTUREBOX和IMAGE控件中的图象如何合并保存成一个图片?谢谢!
- 关于MSChart控件的几个问题
- vb.net 中如何发布程序
- 请问大家Winsock控件在局域网中传输率为何低?
- 如何在vb中调用系统的输入法
- 如何在vb2008中实现excel双列打印?
- 请问如何有VBA将excel中的某个指定的sheets整体保存为文本文件?
怎么回事呢?
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 LongPrivate Sub Command1_Click()
Me.Caption = "Command1_Click"
End SubPrivate 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