限制鼠标移动区域程序(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 下载:http://download.csdn.net/user/gouyue QQ223857666勾月,guocan@msn.cn