- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日历饼状图的几个属性问题——已解决、已分享 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148576)
-- 发布时间：2020/4/10 13:11:00
-- [求助]日历饼状图的几个属性问题——已解决、已分享
下载已经更新了。
用狐表实现echarts的日历饼状图，有几个属性问题请求高手帮忙解决：
此主题相关图片如下：狐表的日历饼状图.png
1、怎么去掉饼状图的黑色方框？
2、标注的数值个数为啥不够？——原因找到了，是图太小了。但数值标注的位置不够理想，需要狐爸改进。
3、方框与饼状图之间的间距太大，浪费有限的屏幕空间，怎么设置才能缩小间距、尽量放大饼状图？
4、本例是设计了31个chart，每个chart上放1个饼状图，如果换个更高效的设计思路：只设计1个chart，添加31个饼状图，则31个饼图的位置该怎么设置？
谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日历饼状图.foxdb |
[此贴子已经被作者于2020/4/10 20:24:35编辑过]
-- 发布时间：2020/4/10 16:54:00
--
第2个问题的原因找到了，是图太小了。但数值标注的位置不够理想，需要狐爸改进。
-- 发布时间：2020/4/10 17:04:00
--
俺也就能做到这种效果了
For i = 1 To Date.DaysInMonth(ye,mo) \'创建日历标签
Chart = e.Form.CreateControl("Chart" & i,ControlTypeEnum.Chart) \' 创建图表
Chart.Left = 23 + 80*((i-1+da.DayOfWeek) Mod 7)
Chart.Top = 40 + 80*((i-1+da.DayOfWeek)\\7)
Chart.Width = 78 \'留出80-78=2的间距,以产生表格线的效果
Chart.Height = 78
Chart.VisualEffect = True \'加上这一行,图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie \'饼形
Dim ctl As C1Chart.C1Chart = Chart.BaseControl
ctl.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None
ctl.ChartArea.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None
ctl.ChartArea.plotarea.sizedefault = new size(80,80)
ctl.ChartArea.Margins.Bottom = 0
ctl.ChartArea.Margins.Top = 0
ctl.ChartArea.Margins.left = 0
ctl.ChartArea.Margins.right = 0
-- 发布时间：2020/4/10 20:21:00
--
非常感谢蓝版，已经非常好了。
我优化后已做分享（1楼也已经更新了）。
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=148597
[此贴子已经被作者于2020/4/10 20:25:20编辑过]