如何不建立窗口生成雷达图并保存为图片文件呢？
Dim c1Chart1 = Forms("窗口2").Controls("Chart1").BaseControl
c1Chart1.ChartGroups(0).ChartType = C1.Win.C1Chart.Chart2DTypeEnum.Radar
这段代码是在窗口中生成雷达图
Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Chart.DataTable = DataTables("选项")
Chart.SeriesList.Clear()
Chart.DataTable = DataTables("选项")
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.X.DataField = "选项" & a1
Series.Y.DataField = "数量" & a1
Series.DataLabelText = "{#YVAL}"
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.FooterText="各选项对应人数示意图"
Chart.PrintWidth = 100
Chart.PrintHeight = 140
Chart.BarClusterWidth = 60
Chart.SaveImage(ProjectPath & "Images\xx" & a1 & ".wmf")
这段代码不在窗口生成图表，而是直接建立图表保存为图
问题：如何不利用窗口控件又能生成雷达图并保存为图片文件呢？
加好友 
发短信
Post By：2015/5/19 9:45:00 [只看该作者]
