PieInnerRadius
用于指定饼形图的中空比例,中空之后,饼形图就成了环形图。
示例
例如有下图的数据:
针对上面的数据表,执行下面的代码
Dim
Chart
As
WinForm.Chart
'定义一个图表变量
Dim
Series
As
WinForm.ChartSeries
'定义一个图系变量
Dim
t
As
Table = Tables("统计1")
'定义一个变量t引用数据表
Chart = Forms("窗口1").Controls("Chart1")
'
引用窗口中的图表
Chart.VisualEffect =
True
'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie
'图表1类型改为Bar(条形)
For
Each
r
As
Row
In
t.Rows
Series = Chart.SeriesList.Add()
'增加一个图系
Series.Length = 1
'一个系列只能包括一个值
Series.Text = r("产品")
&
"("
& r("数量")
&
")"
'设置图系的标题
Series.Y(0) = r("数量")
'指定值
Next
Chart.PieInnerRadius = 70
'中空比例为70%
生成的环形图如下: