以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]图表添加辅助线(已解决) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83825) |
-- 作者:yyzlxc -- 发布时间:2016/4/18 10:25:00 -- [求助]图表添加辅助线(已解决) 1、黄色部分为图表添加辅助线的代码,运行出错,如何修改? 2、如果辅助线动态添加,用代码清除这条辅助线如何写?请各位老师指教,谢谢!! \'生成图表 Dim Chart1 As WinForm.Chart \'定义一个图表变量 Dim Series1 As WinForm.ChartSeries \'定义一个图系变量 Chart1 = Forms("工效分析").Controls("Chart1") \' 引用窗口中的图表 Dim C1Cha1 As C1.Win.C1Chart.C1Chart = Chart1.BaseControl Chart1.VisualEffect = True \'加上这一行,让你的图表更漂亮 Chart1.AxisY.Min = 0.97 \'指定Y轴的最小值 Chart1.AxisY.Max =1.03 Chart1.ChartType = ChartTypeEnum.XYPlot \'图表1类型为线形 Dim t1 As Table = Tables("工效分析") \'定义一个变量t引用数据表 Chart1.SeriesList.Clear() \'清除图表原来的图系 Series1 = Chart1.SeriesList.Add() \'增加一个图系 Series1.LineColor = Color.Lime \'指定颜色 Series1.MarkShape = MarkShapeEnum.Dot \'指定数据点标记的形状 Series1.MarkSize = 3 \'指定数据点标记的大小 Series1.MarkColor = Color.Lime \'指定数据点标记的颜色 Series1.Length = t.Rows.Count \'设置图系的长度 For i As Integer = 0 To t1.Count - 1 \'指定每个数据点的位置 Series1.X(i) = i \'指定水平坐标 Series1.Y(i) = t1.Rows(i)("平均") \'指定垂直坐标 Chart1.AxisX.SetValueLabel(i, t1.Rows(i)("日期")) \'指定字符表示 Next Series1.TooltipText = "{#YVAL}" \'鼠标移动到标记点时,显数据 Chart1.AxisX.Text = "平均" \'坐标标题 Chart1.AxisX.Font = New Font("宋体",8,FontStyle.Bold) \'坐标标题字体 Chart1.AxisY.Text = "日期" \'坐标标题 Chart1.AxisY.Font = New Font("宋体",8,FontStyle.Bold) \'坐标标题字体 Chart1.AxisX.AnnoRotation = - 45 \'X轴标示逆时针旋转45度 Chart1.AxisX.AnnoWithLabels = True \'启用字符标示 \'平均辅助线 Dim tl As C1.Win.C1Chart.TrendLine = C1Cha1.ChartGroups (0).ChartData.TrendsList.AddNewTrendLine() tl.LineStyle.Color = Color.Gold \'线条颜色 tl.LineStyle.Thickness = 2 \'线宽 tl.LineStyle.Pattern = 0 \'直线样式 0-5 Dim zxb = New FT图表辅助线() zxb.SetXY(New PointF(0,1.0),New PointF(25,1.0)) zxb.SetText("均线") tl.CustomTrendLine = zxb [此贴子已经被作者于2016/4/18 11:54:25编辑过]
|
-- 作者:大红袍 -- 发布时间:2016/4/18 10:45:00 -- 1、Dim tl As C1.Win.C1Chart.TrendLine = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
2、C1Cha.ChartGroups(0).ChartData.TrendsList.clear |
-- 作者:yyzlxc -- 发布时间:2016/4/18 11:54:00 -- 谢谢大红袍老师的赐教,问题解决。 |