专家坐堂-【饼图】怎么添加自定义文字，怎么添加横线或箭头？怎么实现鼠标放在对应的饼图色块上，提示对应的信息并将色块进行偏离显示？谢谢！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Chart As WinForm.Chart \'定义一个图表变量

Dim Series As WinForm.ChartSeries \'定义一个图系变量

Dim t As Table = Tables("门店产值") \'定义一个变量t引用数据表

Dim sm As Integer = t.Compute("Sum(总额)") \'计算总数量

Chart= Forms("门店产值").Controls("Chart3") \' 引用窗口中的图表

Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Pie \'图表1类型改为Bar(条形)

Chart.SeriesList.Clear() \'清除图表原来的图系

For Each r As Row In t.Rows

Series = Chart.SeriesList.Add() \'增加一个图系

Series.Length = 1 \'一个系列只能包括一个值

Series.Text ="总额"

Series.Text = r("门店名称") & "(" & r("总额") & ")" & "占" & Math.Round(r("总额")*100/sm,2) & "%" \'设置图系的标题

Series.Y(0) = r("总额") \'指定值

Series.DataLabelText = r("门店名称") & Math.Round(r("总额")*100/sm,2) & "%" \'计算百分比

Chart.LegendVisible = True \'显示图列

Chart.LegendCompass= CompassEnum.East \'图列显示在东方(右方)

实现效果，尚需要补足红色部分

此主题相关图片如下：12.png