Tweet

buy amoxicillin walmart amoxicillin 500 for uti read amoxil dosage buy prednisolone eye drops over the counter buy prednisolone for dogs muammerbenzes.com cheap prednisolone amoxicillin side effect amoxicillin 500mg side effects read here amoxil buy abortion pill uk abortion pill go name of abortion pill in uk buy sertraline 100mg buy sertraline canada 21fitday.com buy sertraline 50mg 시리즈별로 다양한 넓이 타입으로 그려본 입체형 스택 컬럼 차트

        

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.StackedColumn;
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.Tight;

if (i == 1) sr.Column.WidthType = ColumnWidthType.Dynamic;
if (i == 2) sr.Column.WidthType = ColumnWidthType.Default;

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.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.StackedColumn
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.Tight

If i = 1 Then
sr.Column.WidthType = ColumnWidthType.Dynamic
End If
If i = 2 Then
sr.Column.WidthType = ColumnWidthType.[Default]
End If

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.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()