Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Me.TChart1.Series(0).Clear
Me.TChart1.Series(1).Clear
For i = 2 To 20 Step 2
j = i ^ 2 + 5
Me.TChart1.Series(0).Add j, i, clTeeColor
Next
For i = 3 To 21 Step 2
j = i ^ 2 + 5
Me.TChart1.Series(1).Add j, i, clTeeColor
Next
End Sub
Private Sub Form_Load()
TeeCommander1.Chart = TChart1
End Sub
代码如上所示,
我想要问如何控制tchart的坐标X使得坐标的值为代码中的I值
可是实际情况如下图:
X轴却是012345678序列
请问如何控制