如何用VBA限制鼠标移动范围?

作者：绿色风分类：时间：2022-08-17 浏览：205

楼主
wise

Q:如何用VBA限制鼠标移动范围?
A:ALT+F11→插入模块→输入下面代码：

Public Declare Function ClipCursor Lib "User32" (lpRect As Any) As Long
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub 限制鼠标移动范围()
'限制鼠标移动范围
Dim z As RECT
z.Bottom = 560 '下边界
z.Top = 0 '上边界
z.Left = 220 '左边界
z.Right = 800 '右边界
ClipCursor z
End Sub

谨慎使用这段代码，到时候鼠标用不了的话，启动任务管理器即可退出。

mouse.rar

2楼
纵鹤擒龙水中月

学习了，谢谢！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表