Limit Cursor Movement to Within a Particular Form or Control

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Leo Koach

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

See comments for details and example.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' #VBIDEUtils#*************************************************** ' * Programmer Name : Leo Koach ' * Web Site : http:// ' * E-Mail : ' * Date : 8/7/2000 ' *************************************************************** ' * Comments ' * Limit Cursor Movement Inside a Form or Control ' * ' *********************************************************** Option Explicit 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 Private Declare Sub ClipCursor Lib "user32" (lpRect As Any) Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As _ Long, lpRect As RECT) Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As _ Long, lpPoint As POINT) Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, _ ByVal x As Long, ByVal y As Long)

Code: