关于鼠标的问题,谢谢了

nkwj 2000-03-09 12:18:00
vb6可否实现模拟鼠标自由移动,点击?
请问如何操作?
...全文
181 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
benbenlittle 2000-03-12
  • 打赏
  • 举报
回复
可以将你msg设成WM_LBUTTONDBLCLK
其中wparam是鼠标的位置你可以用makewparam(point.x,point.y)
来设置
其中point.x和point.y是用getcursorpos返回的鼠标的坐标
lparam设成0即可
benbenlittle 2000-03-10
  • 打赏
  • 举报
回复
用sendmessage试试
sendmessge(hwnd,msg,wparam,lparam)
其中msg为消息
ltp3 2000-03-09
  • 打赏
  • 举报
回复
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) 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 Type POINTAPI
x As Long
y As Long
End Type


SetCursorPos x, y 移动鼠标到x,y
mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0 在x,y处单击



Un1 2000-03-09
  • 打赏
  • 举报
回复
使用mouse_event API 函数
tcp 2000-03-09
  • 打赏
  • 举报
回复
那怎么模拟鼠标双击呢?

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧