限制鼠标移动区域程序(vb6.0源代码编写)
限制鼠标移动区域程序(vb6.0源代码编写) Option Explicit 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 Dim mouse As RECT Private Sub Command1_Click() mouse.Left = Me.Left / Screen.TwipsPerPixelX mouse.Top = Me.Top / Screen.TwipsPerPixelY mouse.Right = (Me.Left + Me.Width) / Screen.TwipsPerPixelX mouse.Bottom = (Me.Top + Me.Height) / Screen.TwipsPerPixelY ClipCursor mouse End Sub Private Sub Command2_Click() mouse.Left = 0 mouse.Top = 0 mouse.Right = (Screen.Width) / Screen.TwipsPerPixelX mouse.Bottom = (Screen.Height) / Screen.TwipsPerPixelY ClipCursor mouse End Sub Private Sub Command3_Click() End End Sub
- 1
- misoline2014-06-01好东西,记得要多多的拿出来分享。
- 粉丝: 76
- 资源: 570
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助