主题：[求助]雷达图修改维度可以吗？

某大神做得雷达图示例，里面是六维参数，不知道能不能改维度，五维或七维该怎么改？

'初始化图表

Dim c1Chart1 = Forms("窗口1").Controls("Chart1").BaseControl

c1Chart1.ChartGroups(0).ChartType = C1.Win.C1Chart.Chart2DTypeEnum.Radar

 

c1Chart1.BackColor = Color.White

 

' Setup the header and footer

c1Chart1.Header.Style.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Bold)

c1Chart1.Header.Text = "Employment Candidate Review"

c1Chart1.Footer.Visible = False

 

' Setup the legend

c1Chart1.Legend.Compass = C1.Win.C1Chart.CompassEnum.South

c1Chart1.Legend.Orientation = C1.Win.C1Chart.LegendOrientationEnum.Horizontal

c1Chart1.Legend.Visible = True

 

' Setup the Axis X

Dim ax As C1.Win.C1Chart.Axis = c1Chart1.ChartArea.AxisX

ax.Font = New Font("Arial", 8)

ax.Thickness = 2

ax.AnnoMethod = C1.Win.C1Chart.AnnotationMethodEnum.ValueLabels

ax.GridMajor.Color = Color.DarkGray

ax.GridMajor.Pattern = C1.Win.C1Chart.LinePatternEnum.Solid

ax.GridMajor.Thickness = 2

ax.GridMajor.Visible = True

 

' Setup the value labels

Dim vlbl As C1.Win.C1Chart.ValueLabel = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 1

vlbl.Text = "隐患排查数量"

 

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 2

vlbl.Text = "隐患整改数"

 

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 3

vlbl.Text = "检查情况"

 

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 4

vlbl.Text = "活动情况"

 

vlbl = ax.ValueLabels.AddNewLabel()

vlbl.NumericValue = 5

vlbl.Text = "信息完善度"

 

'vlbl = ax.ValueLabels.AddNewLabel()

'vlbl.NumericValue = 6

'vlbl.Text = "标准化等级"

 

 

 

' Setup the Axis Y

Dim ay As C1.Win.C1Chart.Axis = c1Chart1.ChartArea.AxisY

ay.Min = 0

ay.Max = 5

ay.UnitMinor = 0

ay.UnitMajor = 1

ay.Compass = C1.Win.C1Chart.CompassEnum.North

 

c1Chart1.UseAntiAliasedGraphics = True

 

'输入具体数据生成图表

 

c1Chart1.ChartGroups(0).ChartType = C1.Win.C1Chart.Chart2DTypeEnum.Radar

Dim series As C1.Win.C1Chart.ChartDataSeriesCollection = c1Chart1.ChartGroups(0).ChartData.SeriesList

series.RemoveAll()

 

' Fill the X array

Dim x As Integer() = CType(Array.CreateInstance(Gettype(Integer), 6), Integer())

Dim i As Integer

For i = 0 To x.Length - 1

    x(i) = i + 1

Next i

 

' Add one series

Dim s As C1.Win.C1Chart.ChartDataSeries = series.AddNewSeries()

s.LineStyle.Color = Color.SeaGreen

s.LineStyle.Thickness = 2

s.LineStyle.Pattern = C1.Win.C1Chart.LinePatternEnum.Solid

s.SymbolStyle.Color = Color.FromArgb(90, Color.Lime)

s.SymbolStyle.Shape = C1.Win.C1Chart.SymbolShapeEnum.Tri

s.SymbolStyle.Size = 8

s.Label = "Michael Johnson"

s.Display = C1.Win.C1Chart.SeriesDisplayEnum.Show

 

Dim y() As Integer = {5, 1, 4, 5, 4}

s.X.CopyDataIn(x)

s.Y.CopyDataIn(y)