怎樣利用VB限制鼠標移動

領測軟件測試網 　 本文介紹如何限制鼠標在窗口的指定范圍內移動。這個技術在需要防止用戶鼠標在指定區域內活動時非常
有用。例如在一個射擊游戲中，需要限制鼠標在射擊區內移動。
操作步驟
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、運行程序。在圖片框單擊鼠標，鼠標將被包含在圖片框控件的區域內。要釋放限制狀態只需再次單擊鼠標。
注意：如果釋放限制狀態失敗，鼠標將被永久限制，只能用重新啟動機器來解決。
另一個限制鼠標活動范圍的方法是關閉鼠標，用其他圖象代替光標，例如手槍。

文章來源于領測軟件測試網 http://www.kjueaiud.com/