如何不建立窗口生成雷达图并保存为图片文件呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何不建立窗口生成雷达图并保存为图片文件呢？

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")

这段代码不在窗口生成图表，而是直接建立图表保存为图

问题：如何不利用窗口控件又能生成雷达图并保存为图片文件呢？

代码：

Dim Chart As New ChartBuilder '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart.DataSource = "统计表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "产品" 'X轴绑定到产品列
Series.Y.DataField = "数量" 'Y轴绑定到数量列
Chart.PrintWidth = 140 '宽度设为140毫米
Chart.PrintHeight = 100 '高度设为100毫米
Chart.SaveImage("c:\data\test.bmp") '将生成的图表保存为文件。

上面的代码可以直接在命令窗口执行，无须新建一个窗口并插入Char控件来测试

可是下面雷达图的例子的代码如何改才能有不建窗口而能生成图片呢？

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

请帮助在例子上修改测试一下

主题：如何不建立窗口生成雷达图并保存为图片文件呢？