• Home
 · 
• Custom Controls/Forms/Menus
 · 
• MAKE THE MOUSE NOT ALLOWED TO GET OUT THE FORM

MAKE THE MOUSE NOT ALLOWED TO GET OUT THE FORM

MAKE THE MOUSE NOT ALLOWED TO GET OUT THE FORM

API Declarations


Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long)
Private Declare Sub GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)
Private Type RECT
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
Private Type POINT
X As Long
Y As Long
End Type



Rate MAKE THE MOUSE NOT ALLOWED TO GET OUT THE FORM

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Up As POINT 
ClientToScreen Me.hwnd, Up 
GetClientRect Me.hwnd, Client 
OffsetRect Client, Up.X, Up.Y 
Up.X = Client.Left 
Up.Y = Client.Top 
ClipCursor Client 
End Sub