1

我正在绘制折线图,​​问题在于我的数据中某些点的值为零。如果我这样做 AddNull ,它不会显示相同的 X 轴值。任何人都可以在同一系列影响中分享使用 AddNULL 和 Add 的示例。

例如,我有一个具有 11 个 X- Pts 的系列,系列数据为 (0,0,0,0,0,10,0,0,0,0,0) 值为 10 的点应显示在第 5 位,但就我而言,它显示在位置 0。

在此处输入图像描述

4

1 回答 1

1

我建议您使用方法 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

你能告诉我们以前的作品是否如你所愿吗?

谢谢,

于 2013-10-10T11:58:48.297 回答