Code: Select all
Dim i, j, c As Integer
Dim xvalues(49) As Double
Dim yvalues(49) As Double
Dim zvalues(49) As Double
Dim x2values(49) As Double
Dim y2values(49) As Double
Dim z2values(49) As Double
For i = 0 To 9
For j = 0 To 4
c = 5 * i + j
xvalues(c) = i
zvalues(c) = j
yvalues(c) = c
Next
Next
Dim cc1 As New Steema.TeeChart.Styles.ColorGrid
cc1.Add(xvalues, yvalues, zvalues)
TChart1.Series.Add(cc1)
For i = 0 To 9
For j = 0 To 4
c = 5 * i + j
x2values(c) = i
z2values(c) = j + 5
y2values(c) = c + 5
Next
Next
Dim cc2 As New Steema.TeeChart.Styles.ColorGrid
cc2.Add(x2values, y2values, z2values)
TChart1.Series.Add(cc2)
TChart1.Aspect.View3D = False