怎样锁定鼠标

Question

用ＡＰＩ函数可以实现，GetClipCursor() SetClipCursor().将鼠标锁定在某个区域叫指针剪切，第一个函数可以取得剪切区，后一个设定剪切区！

Answer 1

ClientToScreen frmlock.hwnd, p
width = Me.width \ Screen.TwipsPerPixelX
height = Me.height \ Screen.TwipsPerPixelY
fanwei.Left = p.x
fanwei.Right = p.x + width
fanwei.Top = p.y
fanwei.Bottom = p.y + height
ClipCursor fanwei
API你自己去声明吧，
你试试就知道了，

Answer 2

VB编程中如何锁定鼠标 
 　　锁定鼠标!什么意思?有人一定不明白了,好!让笔者先说明一下吧!锁定鼠标就是让你的鼠标不能移动,不能单击,当然也不能双击,不能做任何事,反正就是让鼠标本来应有的功能都失效,就跟坏了的一样,很有趣的。你也可以尝试编写一个和你的朋友开个小小的玩笑,不过，不要忘记还原啊!OK!就让笔者用VB编程为各位演示一下这个程序吧!
　　首先,新建工程,在FORM1上放上两个COMMAND命令按钮(即COMMAND1与COMMAND2),其属性都保持不变,然后请输入以下程序代码:
　　Private Declare Function ClipCursor Lib ″user32″ (lpRect As Any) As Long
　　Private Type RECT
　　Left As Long
　　Top As Long
　　Right As Long
　　Bottom As Long
　　End Type ／／以上代码请从API函数浏览器中复制即可。
　　Dim DENG As RECT
　　Dim SS As Boolean ／／是锁定或是释放的判断
　　－－－－－－－－－－－－
　　Private Sub Form_Load() ／／作初始化设置。
　　SS = True
　　Command1.Caption = ″单击将锁定鼠标,锁定后按回车将被释放″。
　　Command2.Caption = ″结束程序″