Tweet

accutane without birth control buy accutane pills female viagra name female viagra name website female viagra for sale why does erectile dysfunction happen buy viagra jelly where to buy abortion pill abortion pill online koop abortuspil online abortuspil kopen buy accutane europe accutane without insurance williamgonzalez.me cheap accutane 디자인 타입 simple2, 팔레트 타입 soft 형으로 그려본 풀 스택형 바 차트

    

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.StackedBar;
sList.StackType = StackType.FullStacked;
sList.IsShow3D = true;
sList.Transparency = 55;

Random r = new Random();
for(int i = 0; i < 4; i++)
{
Series sr = new Series();
sr.Column.WidthType = ColumnWidthType.Dynamic;
sr.Column.DesignType = AreaDesignType.Dark;

for(int x = 0; x < 5; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);

sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}

this.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue;
this.hHippoChart1.DesignType = ChartDesignType.Simple2;
this.hHippoChart1.PaletteType = PaletteType.Soft;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.StackedBar
sList.StackType = StackType.FullStacked
sList.IsShow3D = True
sList.Transparency = 55

Dim r As New. Random()
For i As Integer = 0 To 3
Dim sr As New. Series()
sr.Column.WidthType = ColumnWidthType.Dynamic
sr.Column.DesignType = AreaDesignType.Dark

For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)

sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next

Me.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue
Me.hHippoChart1.DesignType = ChartDesignType.Simple2
Me.hHippoChart1.PaletteType = PaletteType.Soft
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()