老师好图表生成有齿状,不够细腻,请帮看看,如何优化,谢谢!
另:请教一下,关于图表控件,有更详尽的用法内容介绍没,谢谢!
此主题相关图片如下：图表显示粗糙.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编辑过]
加好友 
发短信
Post By：2019/10/18 11:00:00 [只看该作者]
