Tweet

amoxicillin 500 dosage amoxicillin abortion in philippines pregnancy termination in manila go pregnancy termination in manila 팔레트 타입 sky2를 적용하여, 데이터 수치 표시 내용, 데이터 수치 표시 위치를 설정해서 그려본 파이 차트

                  

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Pie;
sList.Margin = 20;

Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer;
sr.UnAxisFactor.UnAxisDisplayItemType = UnAxisDisplayItemType.Percent_Name;

for(int x = 0; x < 4; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(90);
item.IsShowFigureText = true;
item.Label.Font = new Font("tahoma", 10, FontStyle.Italic);

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

this.hHippoChart1.PaletteType = PaletteType.Sky2;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Pie
sList.Margin = 20

Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.UnAxisFactor.TextLocation = UnAxisFigureTextLocation.Outer
sr.UnAxisFactor.UnAxisDisplayItemType = UnAxisDisplayItemType.Percent_Name

For x As Integer = 0 To 3
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](90)
item.IsShowFigureText = True
item.Label.Font = New Font("tahoma", 10, FontStyle.Italic)

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

Me.hHippoChart1.PaletteType = PaletteType.Sky2
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()