/ Snippet Library - View Code

Snippet details

ID: 407

Viewed: 1308

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Mouse Not Over....

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All'Call GetCursorPos() and compare with the position of the control's 'corners (which is conveniently obtained using the ClientToScreen API 'function): Dim Cur As POINTAPI Dim MyUpperLeft As POINTAPI Dim MyLowerRight As POINTAPI Dim Ret As Long Ret = GetCursorPos(Cur) Ret = ClientToScreen(UserControl.hwnd, MyUpperLeft) MyLowerRight.X = UserControl.Width / Screen.TwipsPerPixelX MyLowerRight.Y = UserControl.Height / Screen.TwipsPerPixelY Ret = ClientToScreen(UserControl.hwnd, MyLowerRight) 'if the mouse not over the control... If Cur.X < MyUpperLeft.X Or Cur.X > MyLowerRight.X Or Cur.Y < MyUpperLeft.Y Or Cur.Y > MyLowerRight.Y Then 'etc

No Reviews to show