int gdriver=DETECT, gmode, errorcode struct arccoordstype arcinfo int midx, midy int stangle=45,endangle=270 char sstr[80],estr[80]

判断点是否在区域内. Private Sub Command1_Click() 当点与任一顶点重合时，返回“不在多边形区域” 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