我正在绘制折线图,问题在于我的数据中某些点的值为零。如果我这样做 AddNull ,它不会显示相同的 X 轴值。任何人都可以在同一系列影响中分享使用 AddNULL 和 Add 的示例。
例如,我有一个具有 11 个 X- Pts 的系列,系列数据为 (0,0,0,0,0,10,0,0,0,0,0) 值为 10 的点应显示在第 5 位,但就我而言,它显示在位置 0。
我建议您使用方法 SetNull 或 AddNullXY 将您想要的值设为 null,并将属性 TreatNull 设置为 DontPaint,因为 null 值不可见。我为您制作了一个简单的代码,我使用方法 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
你能告诉我们以前的作品是否如你所愿吗?
谢谢,