SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Pie;
sList.IsShow3D = true;
sList.Transparency = 55;
Random r = new Random();
for(int i = 0; i < 4; i++)
{
Series sr = new Series();
if (i % 2 == 1)
{
sr.ChartType = ChartType.Pylamid;
sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer;
}
if (i == 0)
{
sr.UnAxisFactor.Pie3DDepth = 9;
}
for(int x = 0; x < 5; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);
if (i == 0 || i == 3)
{
item.IsShowFigureText = true;
}
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.Designer.BackColor = Color.Black;
this.hHippoChart1.DesignType = ChartDesignType.Simple;
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.PaletteType = PaletteType.Sky2;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Pie
sList.IsShow3D = True
sList.Transparency = 55
Dim r As New. Random()
For i As Integer = 0 To 3
Dim sr As New. Series()
If i Mod 2 = 1 Then
sr.ChartType = ChartType.Pylamid
sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer
End If
If i = 0 Then
sr.UnAxisFactor.Pie3DDepth = 9
End If
For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)
If i = 0 OrElse i = 3 Then
item.IsShowFigureText = True
End If
sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.Designer.BackColor = Color.Black
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.PaletteType = PaletteType.Sky2
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()