我假設了五個點來畫一條線圖，點的橫坐標是時間，縱坐標是自己瞎定的數值。出的圖有兩個問題，一是線圖是折線圖，如何讓圖成為圓滑的曲線呢，二是橫坐標沒有等時距顯示（如下圖）。代碼在下面：
Private Sub Form_click()
TChart1.Aspect.View3D = False
TChart1.AddSeries (scLine)
Dim x(4) As Date, y(4) As Integer
x(0) = #5/2/1992#
y(0) = 1
x(1) = #5/3/1992#
y(1) = 50
x(2) = #5/4/1992#
y(2) = 144
x(3) = #5/5/1992#
y(3) = 200
x(4) = #5/7/1992#
y(4) = 301
Dim i
For i = 0 To 4
TChart1.Series(0).Add y(i), x(i), vbGreen
Next i
With TChart1.Axis.Bottom
.Labels.Angle = 45 '橫坐標標簽任意度顯示
End With
End Sub
Private Sub Form_click()
TChart1.Aspect.View3D = False
TChart1.AddSeries (scLine)
Dim x(4) As Date, y(4) As Integer
x(0) = #5/2/1992#
y(0) = 1
x(1) = #5/3/1992#
y(1) = 50
x(2) = #5/4/1992#
y(2) = 144
x(3) = #5/5/1992#
y(3) = 200
x(4) = #5/7/1992#
y(4) = 301
Dim i
For i = 0 To 4
TChart1.Series(0).Add y(i), x(i), vbGreen
Next i
With TChart1.Axis.Bottom
.Labels.Angle = 45 '橫坐標標簽任意度顯示
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/116743.html
標籤：控件