vue 鼠标点击绘制任意多边形_VB6绘制美丽的艺术图案，任意多边形组合，太漂亮了...

在窗体建1个文本框,代码如下：

Private Sub Form_Click()

Dim r, xi, yi, xj, yj, x0, y0, aif As Single

Me.Cls

r = Form1.ScaleHeight / 2 ' 圆的半径

x0 = Form1.ScaleWidth / 2 ' 圆心

y0 = Form1.ScaleHeight / 2

n = Val(Text1) ' 等分圆周n份

aif = 3.1415926 * 2 / n ' 等分角

For i = 1 To n - 1 ' 选择(xi, yi)点

xi = r * Cos(i * aif) + x0

yi = r * Sin(i * aif) + y0

For j = i + 1 To n ' 选择(xj, yj)点

xj = r * Cos(j * aif) + x0

yj = r * Sin(j * aif) + y0

Line (xi, yi)-(xj, yj), QBColor(15) ' 等分点相连

Next j

Next i

End Sub