我再picturebox里画一样的曲线，为什么只显示最后一条 - 编程论坛

#2

风吹过b2013-07-31 10:54

看代码没大问题，
最后一个的 next i 和 end if 写反位置了。

我测试的结果是所有的线都出来了。这个测试好烦。太多了控件。

程序代码：

Option Explicit

Private Sub Command1_Click()             '绘线

Dim i As Long
Dim x As Long, xx As Long
Dim y As Long, yy As Long

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
        End If

Next i

End Sub

Private Sub Command2_Click()      '增加 text 控件

If Text6.Count < 319 Then
Dim i As Long

Text6(0).Move 120, 120, 255, 270
Text2(0).Move 5400, 120, 255, 270

For i = 1 To 319
    Load Text6(i)
    With Text6(i)
        .Top = 120 + (i \ 20) * 270
        .Left = 120 + (i Mod 20) * 255
        .Height = 270
        .Width = 255
        .Text = i
        .Visible = -True
    End With

    Load Text2(i)
    With Text2(i)
        .Top = 120 + (i \ 20) * 270
        .Left = 5400 + (i Mod 20) * 255
        .Height = 270
        .Width = 255
        .Text = i
        .Visible = -True
    End With

Next i
End If
End Sub

Private Sub Command3_Click()       '产生随机数据
Dim i As Long
For i = 0 To 319
    Text6(i).Text = Rnd() * 900
    Text2(i).Text = Rnd() * 900
Next i
End Sub

#3

wolf死神2013-08-01 11:38

回复 2楼风吹过b

每行数据都是一样的吗？我的每行数据都是一样的，相当于画16条一样的曲线。

#4

wolf死神2013-08-01 20:37

回复 2楼风吹过b

例如x轴为（0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95）  共20个点
共5条曲线   （0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95） '红色
            （0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95）'蓝色
            （0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95）'绿色
            （0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95）'白色
            （0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95）'黄色

每行画一条曲线。在同一个picturebox里画出来。现在遇到的问题就是只能显示最后一条，单步调试每条都能画出来，但函数运行完就只能显示画的最后一条。前面都覆盖了似的。

会有5个check1 来选择是否显示画的图，如果选择不显示就画成黑色线，和背景一样。  不是再同一个像素里画就能显示出来，意思就是5条不重合的曲线就能都显示画出来。
代码和我前面贴出来的类似。
求解决，弄头疼我了。

#5

wolf死神2013-08-03 15:35

查到原因是，是因为画的黑线屏蔽了其他颜色的线。感谢楼上能花时间测试下。