Description: Determine the point in the region. Private Sub Command1_Click () when the points of coincidence with any one vertex, the return of not polygon region Line (0, 0)- (500, 500), RGB (255, 255), BF Dim hRegion As Long Dim P () As PointAPI ReDim P (9) As PointAPI P (0). X = 10: P (0). Y = 190: PSet (P (0). X, P (0). Y), vbRed P (1). X = 400: P (1). Y = 270: Line (P (0). X, P (0). Y)- (P (1). X, P (1). Y ), vbRed P (2). X = 220: P (2). Y = 70: Line- (P (2). X, P (2). Y), vbRed P (3). X = 220: P (3). Y = 30: Line- (P (3). X, P (3). Y), vbRed P (4). X = 50: P (4). Y = 30: Line- (P ( 4). X, P (4). Y), vbRed P (5). X = 50: P (5). Y = 70: Line- (P (5). X, P (5). Y), vbRed P (6). X = 30: P (6). Y = 70: Line- (P (6). X, P (6). Y), vbRed P (7). X = 30: P (7 ). Y = 185: Line- (P (7). X, P (7). Y), vbRed P (8). X = 85: P (8). Y = 85: Line- (P (8) . X, P (8). Y), vbRed P (9). X = 120: P (9). Y = 200: Line- (P (9). X, P (9). Y), vbRed Line- (P (0). X, P (0). Y), vbRed
File list (Check if you may need any files):
Download