简单的实现了一下,点太小,而且少,这样的绘制有些失真,不过原理大致如此!
Dim g As Graphics = Me.Panel1.CreateGraphics
Dim gp As New GraphicsPath()
Dim i As Integer = 0
Const pi As Integer = 3.14
While i <= 2 * pi
Dim j As Integer = Sin(i)
gp.AddEllipse(i, j, 1, 1)
i = i + 1
End While
g.DrawPath(Pens.Black, gp)