'生成图表2
Dim Chart2 As WinForm.Chart '定义一个图表变量
Dim Series2 As WinForm.ChartSeries '定义一个图系变量
Chart2= Forms("当天工效分析").Controls("Chart2") ' 引用窗口中的图表
Chart2.VisualEffect = True '加上这一行,让你的图表更漂亮
'第一Y坐标
Chart2.ChartType = ChartTypeEnum.Bar '图子项表类型为条形
Chart2.SeriesList.Clear() '清除图表原来的图系
Chart2.AxisX.ClearValueLabel() '清除字符标示
Series2 = Chart2.SeriesList.Add() '增加一个图系
Series2.Text = "频数" '图例标题
Series2.LineColor = Color.Cyan '指定颜色
Series2.Length = t2.Rows.Count '设置图系的长度
For i1 As Integer = 0 To fzs + 1 '指定每个数据点的位置
Series2.X(i1) = i1 '指定水平坐标
Series2.Y(i1) = t2.Rows(i1)("频数") '指定垂直坐标
Chart2.AxisX.SetValueLabel(i1, t2.Rows(i1)("分组值")) '指定字符表示
Next
Chart2.AxisX.Text = "工效分组" 'X坐标标题
Chart2.AxisX.Font = New Font("宋体",8,FontStyle.Bold) 'X坐标标题字体
Chart2.AxisY.Text = "频数" 'Y坐标标题
Chart2.AxisY.Font = New Font("宋体",8,FontStyle.Bold) 'Y坐标标题字体
Series2.TooltipText = "{#YVAL}" '鼠标移动到标记点时,显数据
'第二Y坐标
Chart2.ChartType2 = ChartTypeEnum.XYPlot '图表1类型为线形
Chart2.SeriesList2.Clear() '清除图表原来的图系
Series2 = Chart2.SeriesList2.Add() '给图表2增加一个图系
Series2.Text = "概率系数" '图例标题
Series2.LineColor = Color.Lime '指定颜色
Series2.LineThickNess = 0.5
Series2.FitType = FitTypeEnum.Spline '设置数据点连线为平滑曲线
Series2.Length = t2.Rows.Count '设置图系的长度
For i1 As Integer = 0 To fzs + 1 '指定每个数据点的位置
Series2.X(i1) = i1 '指定水平坐标
Series2.Y(i1) = t2.Rows(i1)("概率系数") '指定垂直坐标
Chart2.AxisX.SetValueLabel(i1, t2.Rows(i1)("分组值")) '指定字符表示
Next
Series2.MarkShape = False '取消标记点
Chart2.AxisY2.Text = "概率系数" '坐标标题
Chart2.AxisY2.Font = New Font("宋体",8,FontStyle.Bold) 'Y2坐标标题字体
Chart2.AxisY2.GridMajorVisible = False '隐藏Y2轴的网格线
加好友 
发短信
Post By：2016/6/21 10:40:00 [只看该作者]
此主题相关图片如下：捕获19.png