vb代码，我的得到的一个屏幕坐标是200,300，如何将鼠标移动到这个点，鼠标左键自动点击一下。

答案:3 悬赏:20 手机版

解决时间 2021-03-09 09:53

提问者网友：美人性情
2021-03-08 09:40

最佳答案

五星知识达人网友：行雁书
2021-03-08 10:25

'通用声明
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 Sub Command1_Click()
SetCursorPos 200, 300
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '单击一次
End Sub

全部回答

1楼网友：慢性怪人
2021-03-08 11:13

没有试，你试试。首先，写鼠标左键按键事件 sub form_MouseUp(x,y,button....) if x=200 and y=300 then me.currentx=x '这个我写的不一定对，但form有以这样的属性，设置当前坐标位置,你自己查查吧，好像是这个属性。 me.currenty=y if button=vbleftbutton then '检测是不是左键这里写你要做的事情 end if end if end sub 其次，调用上面的事件 call form_MouseUp(200,300,vbleftbutton) 这样就可以了。参考吧。

2楼网友：一把行者刀
2021-03-08 10:42

拉两个 command 按钮，键入以下代码可也： option explicit private declare function swapmousebutton lib "user32" (byval bswap as long) as long private sub command1_click() swapmousebutton false '左手 end sub private sub command2_click() swapmousebutton true '右手 end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息