SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Radar;
sList.Radar.ShapeType = RadarShapeType.Circle;
Random r = new Random();
for(int i = 0; i < 3; i++)
{
Series sr = new Series();
sr.Points.Width = 5;
sr.Points.PointType = PointType.FillCircle;
if (i == 1)
{
sr.Points.Width = 8;
sr.Points.PointType = PointType.FillRectangle;
}
else if (i == 2)
{
sr.Points.Width = 12;
sr.Points.PointType = PointType.FillTriangle;
}
sr.RadarType = RadarPointType.Point;
for(int x = 0; x < 12; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "radar" + x.ToString();
item.YValue = r.Next(50);
if (i < 2) item.YValue = r.Next(10);
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Radar
sList.Radar.ShapeType = RadarShapeType.Circle
Dim r As New. Random()
For i As Integer = 0 To 2
Dim sr As New. Series()
sr.Points.Width = 5
sr.Points.PointType = PointType.FillCircle
If i = 1 Then
sr.Points.Width = 8
sr.Points.PointType = PointType.FillRectangle
ElseIf i = 2 Then
sr.Points.Width = 12
sr.Points.PointType = PointType.FillTriangle
End If
sr.RadarType = RadarPointType.Point
For x As Integer = 0 To 11
Dim item As New. SeriesItem()
item.Name = "radar" & x.ToString()
item.YValue = r.[Next](50)
If i < 2 Then
item.YValue = r.[Next](10)
End If
sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()