PtInRect Function

Declare Function PtInRect Lib "user32.dll" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long

PtInRect determines if a point lies inside or outside of a rectangle. Note that Windows considers the left and top edges of a rectangle to be inside it, and the right and bottom edges to be outside. The function returns 1 if the point is inside or 0 if it is outside.

lpRect

The rectangle to look inside.

x

The x coordinate of the point to determine if it is inside or outside.

y

The y coordinate of the point to determine if it is inside or outside.

Example:

'Example of inside/outside a rectangle
Dim r As RECT
x = SetRect(r, 50, 50, 150, 150)  ' API function sets r = (50,50)-(150,150)
Debug.Print PtInRect(r, 75, 100)  ' returns 1 -- inside
Debug.Print PtInRect(r, 100, 100)  ' returns 0 -- outside

Category: Rectangles
Back to the index.