vb，窗体上一个点的坐标是 100 200，怎么让 鼠标在这个位置自动点击一下，下列代码如何没反应呀

vb，窗体上一个点的坐标是 100 200，如何让 鼠标在这个位置自动点击一下，下列代码怎么没反应呀
vb，窗体上一个点的坐标是 100 200，如何让 鼠标在这个位置自动点击一下，下列代码怎么没反应呀，大家指点一下，多谢了

VB code

'通用声明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 = &H2Private Const MOUSEEVENTF_LEFTUP = &H4Private Sub Command4_Click()mouse_event MOUSEEVENTF_LEFTDOWN, 100, 200, 0, 0End Sub

[解决办法]
Private Sub Command4_Click()
mouse_event MOUSEEVENTF_LEFTDOWN, 100, 200, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 100, 200, 0, 0
End Sub
?


[解决办法]
mouse_event 用的是全局坐标，而窗口用的是相对局部坐标。
你必须先取得窗口在屏幕中的坐标位置，再计算窗口客户区域的位置加以坐标偏移才可以
[解决办法]
移动鼠标，最好用SetCursorPos来实现

查看更多 下一篇