我要用VB做一个多边形然后填充颜色,有没有高手帮我完成作业

Question

我要用VB做一个多边形然后填充颜色,有没有高手帮我完成作业

Answer 1

第二判断有矛盾
外面是py <> yy(i)
里面 是py = yy(i)
If px <> xx(i) And py <> yy(i) And px <> xx(i + 1) And py <> yy(i + 1) And yy(i) = yy(i + 1) Then
If py = yy(i) Then
d = i
Exit For
End If
End If
改成这样
平行于x轴的
If py = yy(i) And yy(i) = yy(i + 1) Then
d = i
Exit For
End If
平行于y轴的
If px = xx(i) And xx(i) = xx(i + 1) Then
d = i
Exit For
End If