Question

VB求教，如何把鼠标锁定在当前窗口里，不允许移出当前操作窗口...

Answer 1

1、建立一个新工程项目，缺省建立窗体FORM1 2、添加一个新模体 3、粘贴下面代码到新模体 Option ExplicitDeclare Function ClipCursor Lib "user32 " (lpRect As Any) As Long Declare Function ClipCursorClear Lib "user32 " Alias "ClipCursor " (ByVal lpRect As Long) As Long Declare Function ClientToScreen Lib "user32 " (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Type POINTAPI X As Long Y As Long End Type Public RetValue As Long Public ClipMode As Boolean Public Sub SetCursor(ClipObject As Object, Setting As Boolean) ' used to clip the cursor into the viewport and ' turn off the default windows cursor Dim CurrentPoint As POINTAPI Dim ClipRect As RECT If Setting = False Then ' set clip state back to normal RetValue = ClipCursorClear(0) Exit Sub End If ' set current position With CurrentPoint .X = 0 .Y = 0 End With ' find position on the screen (not the window) RetValue = ClientToScreen(ClipObject.hwnd, CurrentPoint) ' designate clip area With ClipRect .Top = CurrentPoint.Y .Left = CurrentPoint.X .Right = .Left + ClipObject.ScaleWidth .Bottom = .Top + ClipObject.ScaleHeight End With ' clip it RetValue = ClipCursor(ClipRect) End Sub 4、添加一个图片框控件（PICTURE1）到窗体（FORM1） 5、设置PICTURE1的尺寸和FORM1的一样大 6、在PICTURE1的CLICK事件中添加以下代码： Private Sub Picture1_Click() ClipMode = Not ClipMode SetCursor Picture1, ClipMode End Sub 7、保存工程项目 8、运行程序。在图片框单击鼠标，鼠标将被包含在图片框控件的区域内。要释放限制状态只需再次单击鼠标。 注意：如果释放限制状态失败，鼠标将被永久限制，只能用重新启动机器来解决。

Answer 2

把鼠标拿起来，放到一边