VB6中锁定鼠标的问题

给你找了个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 = 〃结束程序〃
Form1.Caption = 〃锁定鼠标的演示程序〃
End Sub
－－－－－－－－－－－
Private Sub Command1_Click() ／／锁定鼠标
If SS = True Then ／／如果鼠标没有被锁定则锁定它。
DENG.Left = 0：DENG.Top = 0 ／／必要设置,四个都为零。
DENG.Right = 0：DENG.Bottom = 0
ClipCursor DENG : SS = False ／／锁定鼠标且重新赋值给SS。