加粗的部分,就是设置线条的:
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series1 As WinForm.ChartSeries '定义一个图系变量
Dim Series2 As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("计划完成表") '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = True
Chart.SeriesList.Clear() '清除图表原来的图系
Dim nms() As String = {"一","二","三","四","五","六","七","八","九","十","十一","十二"}
Dim r As Row = t.current
Series1 = Chart.SeriesList.Add() '增加一个图系
Series2 = Chart.SeriesList.Add() '增加一个图系
Series1.Length = 12 '图系的数据点数等于表的行数
Series2.Length = 12 '图系的数据点数等于表的行数
Series1.LineThickNess = 1
Series2.LineThickNess = 1
Series1.MarkSize = 2
Series2.MarkSize = 2
For i As Integer = 0 To 11
Series1.y(i) = r(nms(i) & "_" & "计划")
Series2.y(i) = r(nms(i) & "_" & "实现")
Series1.x(i) = i
Series2.X(i) = i
Next