• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Keep mouse inside a form

Keep mouse inside a form

Keep mouse inside a form

API Declarations


' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 13/10/98
' * Time : 10:24
' * Module Name : Form_Module
' * Module Filename : Form.bas
' **********************************************************************
' * Comments : Keep mouse inside a form
' *
' **********************************************************************

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




Rate Keep mouse inside a form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : [email protected]
' * Date             : 13/10/98
' * Time             : 10:24
' * Module Name      : Form_Module
' * Module Filename  : Form.bas
' **********************************************************************
' * Comments         : Keep mouse inside a form
' *
' **********************************************************************

'Get the screens Twips per pixel (form's scalemode must be Twips)
lngX = Screen.TwipsPerPixelX
lngY = Screen.TwipsPerPixelY

'Set cursor region to that of form
With NewRect
    .Left = Me.Left / lngX
    .Top = Me.Top / lngY
    .Right = .Left + Me.Width / lngX
    .Bottom = .Top + Me.Height / lngY
End With
lngReturn = ClipCursor(NewRect)