关于teechart

Question

Dim a(1 To 100)
Dim b(1 To 100)
Dim c(1 To 100)
Dim d(1 To 100)
Dim iFor i = 1 To 20
a(i) = i + 20
b(i) = i ^ 2
Next i
For i = 1 To 10
c(i) = i
d(i) = i ^ 2.1
Next i
TChart1.Series(0).Clear
TChart1.Series(1).ClearFor i = 1 To 20
TChart1.Series(1).Add b(i), a(i), clTeeColor
Next
For i = 1 To 10
TChart1.Series(0).Add d(i), c(i), clTeeColor
Next请问为什么有一条给的横坐标显示不正确呢?
对于这种两个系列,共用一个坐标系,但是横纵坐标都不一样,只是值的范围一样应该怎么弄?

Answer 1

可以定义两个纵坐标，在程序中添加上这段代码
TChart1.Axis.Bottom.PositionPercent = 0 '横坐标在图形底端显示
TChart1.Series(0).VerticalAxis = aLeftAxis '定义第一个纵坐标轴
TChart1.Axis.Left.PositionPercent = 0
TChart1.Axis.Left.StartPosition = 0
TChart1.Axis.Left.EndPosition = 45
TChart1.Series(1).VerticalAxis = aRightAxis '定义第二个纵坐标轴
TChart1.Axis.Right.PositionPercent = 0
TChart1.Axis.Right.StartPosition = 55
TChart1.Axis.Right.EndPosition = 100