我正在绘制折线图,问题在于我的数据中某些点的值为零。如果我执行AddNull,那么它不会显示相同的X轴值。任何人都可以在同一系列影片中分享使用AddNULL和Add的示例。
例如我有一个系列有11个X-Pts,系列数据是(0,0,0,0,0,10,0,0,0,0,0) 值为10的Point应显示在第5位,但在我的情况下,它显示在位置0。
答案 0 :(得分:1)
我建议您使用方法SetNull或AddNullXY使null,您想要的值并将属性TreatNull设置为DontPaint,因为空值不可见。我为你做了一个简单的代码,我在其中使用方法SetNull在你的系列中添加空值:
Private Sub Form_Load()
TChart1.Aspect.View3D = False
TChart1.AddSeries scLine
TChart1.AddSeries scLine
TChart1.Series(0).asLine.Pointer.Visible = True
TChart1.Series(1).asLine.Pointer.Visible = True
Dim i As Integer
For i = 0 To 19
TChart1.Series(0).AddXY i, Rnd, "", vbBlue
If i = 5 Then
TChart1.Series(1).AddXY i, 10, "", vbRed
Else
TChart1.Series(1).AddXY i,0, "", vbRed
End If
Next i
For i = 0 To TChart1.Series(1).Count - 1
If i <> 5 Then
TChart1.Series(1).SetNull (i)
End If
Next i
TChart1.Series(1).asLine.TreatNulls = tnDontPaint
End Sub
你能否告诉我们以前的作品是否符合您的要求?
谢谢,