谢谢大神们,求帮助,谢谢
------解决思路----------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim d1 As Graphics = Me.Panel1.CreateGraphics
d1.Clear(Color.LightBlue)
Dim i As Integer
Dim n As Integer = Me.TextBox1.Text
Dim w As Integer = Me.Panel1.Width \ n
Dim h As Integer = (Me.Panel1.Height - 50) \ 2
Dim x1 As Integer
Dim y1 As Integer
Dim x2 As Integer
Dim y2 As Integer
x2 = 0
y2 = Me.Panel1.Height \ 2
Dim m As Integer = -1
For i = 0 To n
x1 = x2
y1 = y2
m = m * -1
y2 = y2 - h * m
d1.DrawLine(Pens.Red, x1, y1, x2, y2)
x1 = x2
y1 = y2
x2 = x1 + w
d1.DrawLine(Pens.Red, x1, y1, x2, y2)
Next
Catch e1 As Exception
End Try
End Sub
------解决思路----------------------
有坐标就行了 想怎么画怎么画
我知道 你看着这个还会有很多问题
所以 你还是 先去看看 gdi 吧