كود لحصر الماوس داخل الفورم - نسخة قابلة للطباعة

كود :

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, _

lpRect As RECT) As Long

Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, _

lpPoint As Any) As Long

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long



Sub RestrictMouseRegion(Optional ByVal hWnd As Long = 0)

Dim recTargetWindow As RECT

If hWnd Then

GetClientRect hWnd, recTargetWindow

ClientToScreen hWnd, recTargetWindow

ClientToScreen hWnd, recTargetWindow.Right

ClipCursor recTargetWindow

Else

ClipCursor ByVal 0&

End If

End Sub



Private Sub Form_Load()

RestrictMouseRegion (Me.hWnd)

End Sub



Private Sub Form_Unload(Cancel As Integer)

RestrictMouseRegion

End Sub