Tweet

cheap accutane accutane without insurance abortuspil kopen abortuspil zonder recept verkrijgbaar open abortuspil online buy amitriptyline london buy amitriptyline online 9925.org amitriptyline 50mg buy naltrexone online canada buy naltrexone 기존 게이지 차트는 시리즈리스트 레벨에서 선언하여 그려야했으나 4.2 부터는 하위 레벨에서도 작성할 수 있게 되었습니다.

              

C#

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

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 < 2; i++)
{
Series sr = new Series();
sr.AreaType = AreaType.CurvedArea;
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);

if (i > 0) item.YValue = r.Next(12);

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 < 3; i++)
{
Series sr = new Series();
sr.Name = "Serie" + i.ToString();

if (i == 1)
{
//sr.ChartType = ChartType.Pylamid;
sr.ChartType = ChartType.Funnel;
//sr.Gauge.ShapeType2 = ShapeType2.Gauge7;
}

if (i == 2)
{
sr.ChartType = ChartType.Gauge2;
sr.Gauge.ShapeType2 = ShapeType2.Gauge5;
}

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

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

this.hHippoChart1.Direction = GraphAreaLocation.Vertical;

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

this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

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

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 1
Dim sr As New. Series()
sr.AreaType = AreaType.CurvedArea
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)

If i > 0 Then
item.YValue = r.[Next](12)
End If

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 2
Dim sr As New. Series()
sr.Name = "Serie" & i.ToString()

If i = 1 Then
`sr.ChartType = ChartType.Pylamid;
`sr.Gauge.ShapeType2 = ShapeType2.Gauge7;
sr.ChartType = ChartType.Funnel
End If

If i = 2 Then
sr.ChartType = ChartType.Gauge2
sr.Gauge.ShapeType2 = ShapeType2.Gauge5
End If

For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](57)
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.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()