Foxtable(狐表)用户栏目专家坐堂 → [分享]使用C1控件底层属性让图表设计更美观


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

主题:[分享]使用C1控件底层属性让图表设计更美观

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


加好友 发短信
等级:三尾狐 帖子:683 积分:4882 威望:0 精华:0 注册:2014/6/15 16:01:00
[分享]使用C1控件底层属性让图表设计更美观  发帖心情 Post By:2016/7/23 13:00:00 [显示全部帖子]

Foxtable使用了大量的C1控件,其实C1控件的绘图功能很强大,只是官方在帮助文件里面很少提及底层的东西。

 

C1底层的属性要用来干嘛? 比如,XYPlot图帮助里面只能生成带线条和点的图,不能生成散点图,而通过底层的属性,就可以不显示线条,只显示点;例如,通过底层的属性,还可以设置散点的填充的颜色,轮廓的颜色等等。总之,C1底层有很多属性可以设置,比Foxtable帮助里面介绍的多很多。

 

之前请教了大红袍老师,Hypen以及狐爸,给出了很多指点性建议,今天自己捣鼓了一会儿,基本上是把C1底层的属性使用了,分享出来,供大家参考和扩展,把C1底层的更多功能发挥出来,让图表制作更随心所欲,更美观。

 

同时也对各位老师的认真指导表示谢意!

 

先看图:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160723125323.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/7/23 13:12:35编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
天若千颖
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:683 积分:4882 威望:0 精华:0 注册:2014/6/15 16:01:00
  发帖心情 Post By:2016/7/23 13:01:00 [显示全部帖子]

 

项目文件

 


 


以下内容只有回复后才可以浏览
[此贴子已经被作者于2016/7/23 13:11:09编辑过]

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


加好友 发短信
等级:三尾狐 帖子:683 积分:4882 威望:0 精华:0 注册:2014/6/15 16:01:00
  发帖心情 Post By: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编辑过]

 回到顶部