以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]雷达图修改维度可以吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83606)

--  作者:浙江仔
--  发布时间:2016/4/13 9:57:00
--  [求助]雷达图修改维度可以吗?
某大神做得雷达图示例,里面是六维参数,不知道能不能改维度,五维或七维该怎么改?

\'初始化图表

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)


 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:图表_雷达图_例子.table


--  作者:Hyphen
--  发布时间:2016/4/13 14:00:00
--  
这样效果?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图表_雷达图_例子.table


--  作者:浙江仔
--  发布时间:2016/4/14 20:51:00
--  
哦,谢谢,原来代码在这个地方改动就可以了
Dim x As Integer() = CType(Array.CreateInstance(Gettype(Integer), 7), Integer())