Tweet

buy amoxicillin for dogs uk amoxicillin online link amoxicillin online buy amoxicillin-clavulanate uk buy amoxicillin liquid meteo.marche.it buy amoxicillin-clavulanate lyrica 75 mg online buy lyrica online usa charamin.jp buy lyrica canada buy prednisolone buy prednisolone 5mg uk partickcurlingclub.co.uk prednisolone without prescription 파이 그래프와 라인 영역 차트의 혼합형 차트

              

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Line;

sList.AxisFactor.YAxis.TitleLabel.Text = "y axis title";
sList.AxisFactor.XAxis.TitleLabel.Text = "x axis title";

Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.AreaType = AreaType.LineArea;
sr.Name = "Serie" + i.ToString();

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

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

SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Pie;
sList2.IsShow3D = true;
sList2.Transparency = 55;

for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Name = "Serie" + i.ToString();

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

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

this.hHippoChart1.Direction = GraphAreaLocation.Vertical;

this.hHippoChart1.SeriesAreaRate = "3:2";

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

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Line

sList.AxisFactor.YAxis.TitleLabel.Text = "y axis title"
sList.AxisFactor.XAxis.TitleLabel.Text = "x axis title"

Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.AreaType = AreaType.LineArea
sr.Name = "Serie" & i.ToString()

For x As Integer = 0 To 99
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](50)

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

Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Pie
sList2.IsShow3D = True
sList2.Transparency = 55

For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Name = "Serie" & i.ToString()

For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](9000)
item.IsShowFigureText = True

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

Me.hHippoChart1.Direction = GraphAreaLocation.Vertical

Me.hHippoChart1.SeriesAreaRate = "3:2"

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