我再picturebox里画一样的曲线,为什么只显示最后一条
我定义了一个数组,供320个元素,每行20个元素。Text6 存储X轴坐标,text2储存数据
我把每行的数据在同一个picturebox里画曲线,为什么每行数据都一样时,只能显示最后一行的曲线,其他显示不了,求大师。
For i = 0 To 318 Step 1
If i < 19 Then
x = (Val(Form1.Text6(i).Text))
XX = (Val(Form1.Text6(i + 1).Text))
y = (Val(Form1.text2(i).Text))
YY = (Val(Form1.text2(i + 1).Text))
If Form1.Check1.Value = 1 Then
Form1.Picture_tps.Line (x, y)-(XX, YY), vbRed '红色
Else
Form1.Picture_tps.Line (x, y)-(XX, YY), vbBlack
End If
End If
If (19 < i And i < 39) Then
x = (Val(Form1.Text6(i - 20).Text))
XX = (Val(Form1.Text6(i + 1 - 20).Text))
y = (Val(Form1.text2(i).Text))
YY = (Val(Form1.text2(i + 1).Text))
If Form1.Check2.Value = 1 Then
Form1.Picture_tps.Line (x, y)-(XX, YY), vbYellow '黄色
Else
Form1.Picture_tps.Line (x, y)-(XX, YY), vbBlack
End If
。
。
。
。
。
。
。
。
。
Next i
End If