- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [分享]使用C1控件底层属性让图表设计更美观 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87956)
-- 发布时间：2016/7/23 13:00:00
-- [分享]使用C1控件底层属性让图表设计更美观
Foxtable使用了大量的C1控件，其实C1控件的绘图功能很强大，只是官方在帮助文件里面很少提及底层的东西。
C1底层的属性要用来干嘛？ 比如，XYPlot图帮助里面只能生成带线条和点的图，不能生成散点图，而通过底层的属性，就可以不显示线条，只显示点；例如，通过底层的属性，还可以设置散点的填充的颜色，轮廓的颜色等等。总之，C1底层有很多属性可以设置，比Foxtable帮助里面介绍的多很多。
之前请教了大红袍老师，Hypen以及狐爸，给出了很多指点性建议，今天自己捣鼓了一会儿，基本上是把C1底层的属性使用了，分享出来，供大家参考和扩展，把C1底层的更多功能发挥出来，让图表制作更随心所欲，更美观。
同时也对各位老师的认真指导表示谢意！
先看图：
此主题相关图片如下：qq截图20160723125323.jpg
[此贴子已经被作者于2016/7/23 13:12:35编辑过]
-- 发布时间：2016/7/23 13:01:00
--
项目文件
以下内容只有回复后才可以浏览
[此贴子已经被作者于2016/7/23 13:11:09编辑过]
-- 发布时间：2016/7/23 13:10:00
--
也不知道代码是否规范，总之我想要的功能已经实现了，还请大红袍老师继续指点。
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = False \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.XYPlot \'图表1类型该为Bar(条形)
Chart.ChartType2 = ChartTypeEnum.XYPlot \'图表2类型该为线形
Chart.DataSource = "销售统计" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'给图表1增加一个图系
Series.Text = "数量"
Series.X.DataField = "产品" \'X轴绑定到产品列
Series.Y.DataField = "数量" \'Y轴绑定到数量列
Chart.SeriesList2.Clear() \'清除图表原来的图系
Series = Chart.SeriesList2.Add() \'给图表2增加一个图系
Series.Text = "金额"
Series.X.DataField = "产品" \'X轴绑定到产品列
Series.Y.DataField = "金额" \'Y轴绑定到数量列
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Chart.AxisY.Text = "数量"
Chart.AxisY2.Text = "金额"
Dim a As C1Chart.C1Chart = e.Form.Controls("Chart1").BaseControl \'引用C1控件底层属性
\'设置第一组图表的样式
a.ChartGroups(0).ChartData.SeriesList(0).SymbolStyle.Color = Color.Green \'散点填充颜色
a.ChartGroups(0).ChartData.SeriesList(0).SymbolStyle.OutlineColor = Color.red \'散点轮廓颜色
a.ChartGroups(0).ChartData.SeriesList(0).SymbolStyle.Size = 10 \'散点大小
a.ChartGroups(0).ChartData.SeriesList(0).LineStyle.Pattern = LinePatternEnum.None \'不显示散点间的连线
\'设置第二组图表的样式
a.ChartGroups(1).ChartData.SeriesList(0).SymbolStyle.Color = Color.black \'散点填充颜色
a.ChartGroups(1).ChartData.SeriesList(0).SymbolStyle.OutlineColor = Color.green \'散点轮廓颜色
a.ChartGroups(1).ChartData.SeriesList(0).SymbolStyle.Size = 20 \'散点大小
a.ChartGroups(1).ChartData.SeriesList(0).LineStyle.Pattern = LinePatternEnum.None \'不显示散点间的连线
此主题相关图片如下：qq截图20160723125334.jpg
[此贴子已经被作者于2016/7/23 13:12:13编辑过]
-- 发布时间：2016/7/23 15:37:00
--
学习
-- 发布时间：2016/7/23 16:32:00
--
ddddddddddddddddd
-- 发布时间：2016/7/23 19:26:00
--
分享就是好东西
-- 发布时间：2016/7/23 19:29:00
--
-- 发布时间：2016/7/23 22:53:00
--
看看
-- 发布时间：2016/7/24 2:05:00
-- hk
hk
-- 发布时间：2016/7/24 8:47:00
--
学习一下