首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb 点击窗体指定坐标 比如X:50 Y:80 (要窗体最小化了也能点击),该如何处理

2012-02-29 
vb 点击窗体指定坐标 比如X:50Y:80 (要窗体最小化了也能点击)vb 点击窗体指定坐标 比如X:50 Y:80 (要窗体

vb 点击窗体指定坐标 比如X:50 Y:80 (要窗体最小化了也能点击)
vb 点击窗体指定坐标 比如X:50 Y:80 (要窗体最小化了也能点击)

[解决办法]
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) 

Private Const MOUSEEVENTF_LEFTDOWN = &H2 
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 

Call SetCursorPos(50, 80)
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
-----------
sendmessage 也可以
[解决办法]
很好奇在窗体最小化时楼主是通过何种鼠标操作点击到指定坐标的?

热点排行