VB 版 (精华区)

发信人: bloom (├┝┞┟┠┡┢┣), 信区: VB
标  题: 软件世界 > VB编程中如何锁定鼠标        fzx 
发信站: 哈工大紫丁香 (2000年07月28日16:47:48 星期五), 站内信件

发信人: fzx (化石), 信区: Test
标  题: 软件世界 > VB编程中如何锁定鼠标
发信站: 紫 丁 香 (Sat Nov 27 08:54:30 1999), 转信

《 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。
　　Else
　　ClipCursor ByVal 0＆ : SS = True ／／释放鼠标且重新赋值给SS
　　End If
　　End Sub
　　－－－－－－－－－－－
　　Private Sub Command2_Click()
　　End ／／结束程序。
　　End Sub
　　现在运行一下吧(按下F5),单击COMMAND1鼠标将被锁定,锁定后要释放请按下回
车键即可。当然你也可以把上面的DENG的LEFT,TOP,RIGHT,BOTTOM值都改成100(或
每个都不相同的值)再试一试,相信你一定会有其他新的收获!
　　注:以上程序在中文WINDOWS98, 中文VB5.0专业版中调试通过!
（上海　季昭君）
下载本期推荐软件


--
    阅读本期（45）《电脑报》的全部文章（除游戏）可到internet版精华区

※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: gaea.hit.edu.cn]