Hi,
I have a problem for displaying X axis labels whose step was customized.
Here is my App Code
Chart1.OpenData(COD.Values, NumSeries, COD.Unknown)Chart1.OpenData(COD.XValues, NumSeries, COD.Unknown)
For i = 0 To NumSeries - 1 For j = 0 To NumPts - 1 'Assign values to series from dt1 If dt1.Rows(j)(i + 1) Is DBNull.Value Then Chart1.Value(i, j) = Chart1.Hidden Else Chart1.Value(i, j) = dt1.Rows(j)(i + 1) End If Next j Next (i)
Dim myStep As Double() = New Double(NumPts - 1) {}
''''Just to test
For i = 0 To NumSeries - 1 Chart1.XValue(i, 0) = 10 myStep(0) = 6 Chart1.XValue(i, 1) = 16 myStep(1) = 9 Chart1.XValue(i, 2) = 25 myStep(2) = 9 Chart1.XValue(i, 3) = 34 myStep(3) = 2 Chart1.XValue(i, 4) = 36 Next (i)
Chart1.AxisX.CustomSteps = myStep
Chart1.CloseData(COD.Values) Chart1.CloseData(COD.XValues)
Dim t As Integer For t = 0 To dt1.Rows.Count - 1 Chart1.AxisX.Label(t) = dt1.Rows(t)(0) 'labeling AxisX Next
'Series Legend With Chart1 For i = 1 To dt1.Columns.Count - 1 .SerLeg(i - 1) = Format(CDate(dt1.Columns(i).ColumnName()), "dd/MM/yyyy") Next .SerLegBox = True .SerLegBoxObj.Docked = Docked.Bottom 'par defaut End With