visual basic Code to limit the mouse inside the form

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

Interpreter and redeployed from vb4arb

Please Give Us Your 1 Minute In Sharing This Post!

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →

Powered By: BloggerYard.Com