- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]关于图例显示粗糙 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142091)
-- 发布时间：2019/10/18 11:00:00
-- [讨论]关于图例显示粗糙
老师好
图表生成有齿状,不够细腻,请帮看看,如何优化,谢谢!
另:请教一下,关于图表控件,有更详尽的用法内容介绍没,谢谢!
此主题相关图片如下：图表显示粗糙.jpg
Dim Chart8 As WinForm.Chart \'定义一个图表变量
Dim Series8 As WinForm.ChartSeries
Chart8 = e.Form.Controls("Chart8")
Chart8.ChartType = ChartTypeEnum.pie \'
Chart8.DataSource = "分析"
Chart8.DataFilter = "类型 = \'本厂PCBA\'"
Chart8.SeriesList.Clear() \'清除图表原来的图系
Series8 = Chart8.SeriesList.Add() \'增加第1个图系
Series8.Text = "已结案"
Series8.Y.DataField = "已结案"
Series8.DataLabelCompass = LabelCompassEnum.North
Series8.DataLabelText = "{#YVAL}"
Series8.TooltipText = "{#YVAL}"
Series8.DataLabelForeColor = Color.lime
Series8.FillColor = Color.Lime
Series8 = Chart8.SeriesList.Add() \'增加第2个图系
Series8.Text = "未结案"
Series8.Y.DataField = "未结案"
Series8.DataLabelCompass = LabelCompassEnum.West
Series8.DataLabelText = "{#YVAL}"
Series8.TooltipText = "{#YVAL}"
Series8.DataLabelForeColor = Color.red \'白字
Series8.FillColor = Color.red
Series8 = Chart8.SeriesList.Add() \'增加第3个图系
Series8.Text = "总项目"
Series8.Y.DataField = "总项目"
Chart8.Font = new font("微软雅黑",15,FontStyle.Bold)
Series8.DataLabelCompass = LabelCompassEnum.South
Series8.DataLabelText = "{#YVAL}"
Series8.TooltipText = "{#YVAL}"
Series8.FillColor = Color.Blue
Series8.DataLabelForeColor = Color.Blue
Chart8.VisualEffect = False \'风格
Chart8.ForeColor = Color.white
谢谢!
[此贴子已经被作者于2019/10/18 11:06:21编辑过]
-- 发布时间：2019/10/18 11:08:00
--
Chart8.VisualEffect = False
改为
-- 发布时间：2019/10/18 11:21:00
--
谢谢老师,改为Chart8.VisualEffect = true后,图形的填充就不是纯色了,有什么办法让每类数据图形填充变为设置的纯色填充呢
-- 发布时间：2019/10/18 12:00:00
--
试了一下，没有办法