Tweet

lav dosis naltrexon naltrexon buy amoxicillin buy amoxicillin liquid xnaessentials.com amoxicillin 500 mg capsules female viagra over the counter where to buy female viagra pill crossbordercapital.com buy female viagra clomid uk sale clomid online reviews jstawski.com clomid london Amoxicillin Over the Counter buy amoxicillin liquid buy antibiotic online buy amoxicillin 시리즈별 다른 포인트 타입과 크기, 모양과 축의 수동 설정

    

C#

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

Random r = new Random();
for(int i = 0; i < 3; i++)
{
Series sr = new Series();
sr.UnAxisFactor.Axis.SetAxisStep(0, 100, 10);

if (i == 0)
{
sr.RadarType = RadarPointType.Area;
sr.Points.Width = 0;
sr.Transparency = 55;
}


if (i == 1)
{
sr.RadarType = RadarPointType.Line;
sr.Points.PointType = PointType.FillRectangle;
sr.Points.Width = 8;
}

if (i == 2)
{
sr.RadarType = RadarPointType.Point;
sr.Points.PointType = PointType.FillTriangle;
sr.Points.Width = 9;
}

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

if (i == 0 || i == 3)
{
item.IsShowFigureText = true;
}

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

this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.PaletteType = PaletteType.Cool;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

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

Dim r As New. Random()
For i As Integer = 0 To 2
Dim sr As New. Series()
sr.UnAxisFactor.Axis.SetAxisStep(0, 100, 10)

If i = 0 Then
sr.RadarType = RadarPointType.Area
sr.Points.Width = 0
sr.Transparency = 55
End If


If i = 1 Then
sr.RadarType = RadarPointType.Line
sr.Points.PointType = PointType.FillRectangle
sr.Points.Width = 8
End If

If i = 2 Then
sr.RadarType = RadarPointType.Point
sr.Points.PointType = PointType.FillTriangle
sr.Points.Width = 9
End If

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

If i = 0 OrElse i = 3 Then
item.IsShowFigureText = True
End If

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

Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.PaletteType = PaletteType.Cool
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()