Question

vb怎么限定鼠标的移动范围？

Answer 1

Option Explicit
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

Option Explicit
‘限制鼠标的移动区域
Private Sub Command1_Click()
    Dim r As RECT
    
    r.Left = 0: r.Top = 0
    r.Right = 320: r.Bottom = 200
    ClipCursor r
End Sub
‘取消限制鼠标的移动区域
Private Sub Command2_Click()
    ClipCursor ByVal 0&
End Sub