Dim Chart As WinForm.Chart = Forms("窗口2").Controls("Chart1") '得到一个图表
Dim Series As WinForm.ChartSeries '声明一个图系
Chart.SeriesList.Clear() '清除图表原来的图系
Dim c1Chart1 = Chart.basecontrol
Dim lbls = c1Chart1.ChartLabels
lbls.LabelsCollection.Clear()
Dim s() As String = {"aa","bb","cc","dd","ee","ff","gg","hh","ii","jj"}
For ii As Integer = 0 To 1
Series = Chart.SeriesList.Add()
Series.Length = 10
Series.MarkShape = MarkShapeEnum.Diamond
Series.MarkColor = Color.Red
Series.LinePattern = LinePatternEnum.None
For i As Integer = 0 To 9
Series.X(i) = i+ii '指定水平坐标
Series.Y(i) = i + Rand.Next(5+ii) '指定垂直坐标
Dim lbl As C1.Win.C1Chart.Label = lbls.LabelsCollection.AddNewLabel()
lbl.Text = s(i) & ii '标示内容
lbl.AttachMethod = C1Chart.AttachMethodEnum.DataIndex
lbl.AttachMethodData.GroupIndex = 0
lbl.AttachMethodData.SeriesIndex = 0
lbl.AttachMethodData.PointIndex = i+ii
lbl.Compass = 0
lbl.Offset = 5
lbl.Visible = True
Next
Next
加好友 
发短信
Post By：2017/12/6 15:09:00 [只看该作者]
