SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Line;
sList.AxisFactor.YAxis.SetAxisStep(0, 100, 25);
Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Name = "Serie" + i.ToString();
for(int x = 0; x <= 255; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(77, 90);
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();
AxisTick tk2 = new AxisTick(new PointF(
this.hHippoChart1.SeriesListDictionary[0].AxisFactor.Zero.X + this.hHippoChart1.SeriesListDictionary[0].AxisFactor.XAxis.UnitPixel * 104,
this.hHippoChart1.SeriesListDictionary[0].AxisFactor.Zero.Y));
tk2.IsShowGridLine = true;
tk2.GridLine.LineColor = Color.Blue;
tk2.GridLine.LineWidth = 5;
sList.AxisFactor.XAxis.ExtraTicks.Add(tk2);
AxisTick tk1 = new AxisTick(new PointF(
this.hHippoChart1.SeriesListDictionary[0].AxisFactor.Zero.X,
this.hHippoChart1.SeriesListDictionary[0].AxisFactor.Zero.Y - this.hHippoChart1.SeriesListDictionary[0].AxisFactor.YAxis.UnitPixel * 3.2f));
tk1.IsShowGridLine = true;
tk1.GridLine.LineColor = Color.Blue;
tk1.GridLine.LineWidth = 5;
sList.AxisFactor.YAxis.ExtraTicks.Add(tk1);
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Line
sList.AxisFactor.YAxis.SetAxisStep(0, 100, 25)
Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Name = "Serie" & i.ToString()
For x As Integer = 0 To 255
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](77, 90)
sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()
Dim tk2 As New. AxisTick(New PointF(Me.hHippoChart1.SeriesListDictionary(0).AxisFactor.Zero.X + Me.hHippoChart1.SeriesListDictionary(0).AxisFactor.XAxis.UnitPixel * 104, Me.hHippoChart1.SeriesListDictionary(0).AxisFactor.Zero.Y))
tk2.IsShowGridLine = True
tk2.GridLine.LineColor = Color.Blue
tk2.GridLine.LineWidth = 5
sList.AxisFactor.XAxis.ExtraTicks.Add(tk2)
Dim tk1 As New. AxisTick(New PointF(Me.hHippoChart1.SeriesListDictionary(0).AxisFactor.Zero.X, Me.hHippoChart1.SeriesListDictionary(0).AxisFactor.Zero.Y - Me.hHippoChart1.SeriesListDictionary(0).AxisFactor.YAxis.UnitPixel * 3.2F))
tk1.IsShowGridLine = True
tk1.GridLine.LineColor = Color.Blue
tk1.GridLine.LineWidth = 5
sList.AxisFactor.YAxis.ExtraTicks.Add(tk1)
Me.hHippoChart1.DrawChart()