"Range check error" and waterfall chart
Posted: Wed May 25, 2005 8:00 am
Hi,
I have noticed serious problem, when i try to rotate (360 angle) waterfall chart, "Range check error" message appers. Reproduction of this error is easy, on the blank form place TeeChart and TeeCommander controls, after that put listed below code into Form Load event handler method. I use the lastest version of TeeChart (7.0.0.4) and Visual Basic 6.0 SP6.
Any ideas?
Best regards,
Radek
Private Sub Form_Load()
Dim vSeries As Long
Dim x() As Double
Dim y() As Double
Dim z() As Double
ReDim x(0 To 10)
ReDim y(0 To 10)
ReDim z(0 To 10)
TeeCommander1.Chart = TChart1
With TChart1
vSeries = .AddSeries(scWaterfall)
For i = 0 To 10
x(i) = i
y(i) = 10 + Rnd
z(i) = 4
Next
.Series(vSeries).asWaterfall.IrregularGrid = True
.Series(vSeries).asWaterfall.AddArrayXYZ x, y, z
End With
End Sub
I have noticed serious problem, when i try to rotate (360 angle) waterfall chart, "Range check error" message appers. Reproduction of this error is easy, on the blank form place TeeChart and TeeCommander controls, after that put listed below code into Form Load event handler method. I use the lastest version of TeeChart (7.0.0.4) and Visual Basic 6.0 SP6.
Any ideas?
Best regards,
Radek
Private Sub Form_Load()
Dim vSeries As Long
Dim x() As Double
Dim y() As Double
Dim z() As Double
ReDim x(0 To 10)
ReDim y(0 To 10)
ReDim z(0 To 10)
TeeCommander1.Chart = TChart1
With TChart1
vSeries = .AddSeries(scWaterfall)
For i = 0 To 10
x(i) = i
y(i) = 10 + Rnd
z(i) = 4
Next
.Series(vSeries).asWaterfall.IrregularGrid = True
.Series(vSeries).asWaterfall.AddArrayXYZ x, y, z
End With
End Sub