Foxtable(狐表)用户栏目专家坐堂 → [求助]如何再点击的时候让pie 偏离


  共有1768人关注过本帖树形打印复制链接

主题:[求助]如何再点击的时候让pie 偏离

帅哥哟,离线,有人找我吗?
81538475
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助]如何再点击的时候让pie 偏离  发帖心情 Post By:2019/12/13 12:03:00 [只看该作者]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
'Dim t2 As Table = Tables("饼状图") '定义一个变量t引用数据表
Dim sm As Integer = t.Compute("Sum(合计_金额)") '计算总数量
Chart= e.form.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("合计_金额") '指定值
    Series.DataLabelText = Math.Round(r("合计_金额")*100/sm,2) & "%" '计算百分比
   
Next
Chart.LegendVisible = True '显示图列
知道有个offeset属性.但是这个属性事加到 click事件中吗?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/13 15:06:00 [只看该作者]

这个没有办法,offeset属性只能是一开始设置好。没有这种互动的用法

 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1692 积分:12106 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2019/12/13 15:19:00 [只看该作者]

CoordToDataIndex

 回到顶部