Question

VB将鼠标限定在当前窗体

vb 怎么样将鼠标限定在当前窗体范围内移动

Answer 1

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
Private Sub Form_Load()
    Dim r As RECT
    x = (Me.Width - Me.ScaleWidth) / 2
    r.Left = (Me.Left + x) / 15
    r.Top = (Me.Top + Me.Height - Me.ScaleHeight - x) / 15
    r.Right = (Me.Left + Me.Width - x) / 15
    r.Bottom = (Me.Top + Me.Height - x) / 15
    ClipCursor r
End Sub