SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Bar;
Random r = new Random();
for(int i = 0; i < 4; i++)
{
Series sr = new Series();
sr.Name = "Series" + i.ToString();
for(int x = 0; x < 4; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(200);
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Pylamid;
for(int i = 0; i < 2; i++)
{
Series sr = new Series();
sr.Name = "Series" + i.ToString();
for(int x = 0; x < 4; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(20);
item.IsShowFigureText = true;
sr.items.Add(item);
}
sList2.SeriesCollection.Add(sr);
}
this.hHippoChart1.LegendBox.IsShowHeader = true;
this.hHippoChart1.LegendBox.LegendFormat = LegendFormat.Value_Percent_Icon_Name;
this.hHippoChart1.LegendBox.PercentDecimalPoint = 2;
this.hHippoChart1.LegendBox.ValueType = LegendValueType.Sum;
this.hHippoChart1.DesignType = ChartDesignType.Simple;
this.hHippoChart1.PaletteType = PaletteType.Sky2;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Bar
Dim r As New. Random()
Dim i As Integer = 0
While i < 4
Dim sr As New. Series()
sr.Name = "Series" + i.ToString()
Dim x As Integer = 0
While x < 4
Dim item As New. SeriesItem()
item.Name = "item" + x.ToString()
item.YValue = r.[Next](200)
sr.items.Add(item)
System.Math.Max(System.Threading.Interlocked.Increment(x),x - 1)
End While
sList.SeriesCollection.Add(sr)
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Pylamid
Dim i As Integer = 0
While i < 2
Dim sr As New. Series()
sr.Name = "Series" + i.ToString()
Dim x As Integer = 0
While x < 4
Dim item As New. SeriesItem()
item.Name = "item" + x.ToString()
item.YValue = r.[Next](20)
item.IsShowFigureText = True
sr.items.Add(item)
System.Math.Max(System.Threading.Interlocked.Increment(x),x - 1)
End While
sList2.SeriesCollection.Add(sr)
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
Me.hHippoChart1.LegendBox.IsShowHeader = True
Me.hHippoChart1.LegendBox.LegendFormat = LegendFormat.Value_Percent_Icon_Name
Me.hHippoChart1.LegendBox.PercentDecimalPoint = 2
Me.hHippoChart1.LegendBox.ValueType = LegendValueType.Sum
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.PaletteType = PaletteType.Sky2
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.DrawChart()