如何在vba中用api函数mouse

您所在的位置：网站首页 › vba鼠标移动触发事件代码 › 如何在vba中用api函数mouse

如何在vba中用api函数mouse

#如何在vba中用api函数mouse| 来源: 网络整理| 查看: 265

如何在vba中用mouse_event操作鼠标？ 2018年2月7日作者：水星Excel 9,482 次浏览暂无评论

api函数mouse_event可以实现各种鼠标操作，如左键单击、左键双击、右键单击、滑动滚轮等等。

它的语法如下

VOID WINAPI mouse_event( _In_ DWORD dwFlags, _In_ DWORD dx, _In_ DWORD dy, _In_ DWORD dwData, _In_ ULONG_PTR dwExtraInfo );

具体的参数含义可以看帮助文档。

以下是在vba中用api函数mouse_event执行鼠标双击操作的代码：

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Public 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) Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Sub QQ1722187970() x = Sheet1.Range("A1") y = Sheet1.Range("b1") SetCursorPos x, y mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub 其它相关文章推荐：如何在vba中用OpenProcess根据进程PID获得进程句柄？如何用vba在屏幕上画圆？如何在vba中用keybd_event操作键盘？如何在vba中用QueryFullProcessImageName获取进程的路径名？如何在vba中使用Hook钩子？如何在vba中用SetCursorPos移动光标? 分类 : API , VBA 标签 : API , mouse_event , 单击 , 双击 , 鼠标

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

如何在vba中用api函数mouse

如何在vba中用api函数mouse

今日新闻

推荐新闻