Dim ChartBubble As WinForm.Chart '定义一个图表变量
Dim SeriesBubble As WinForm.ChartSeries '定义一个图系变量
Dim tBubble As Table = Tables("表A") '定义一个变量t引用数据表
ChartBubble= e.Form.Controls("Chart1")' 引用窗口中的图表
Dim cont As Integer = tBubble.Rows.Count
Dim d As Integer = math.Ceiling(cont/10)
For i As Integer = 0 To cont - 1 Step d '指定每个数据点的位置
Dim clr As Color = Color.FromARGB(255, rand.Next(255), rand.Next(255), rand.Next(255))
For j As Integer = 0 To d
If i+j < cont
SeriesBubble = ChartBubble.SeriesList.Add() '增加一个图系
SeriesBubble.Length = tBubble.Rows.Count '图系包括10个数据点
SeriesBubble.MarkShape= MarkShapeEnum.Dot '指定数据标记为圆点.
SeriesBubble.MarkColor = clr
SeriesBubble.LinePattern = LinePatternEnum.None
SeriesBubble.X(i+j) =tBubble.Rows(i+j)("X")
SeriesBubble.Y(i+j) =tBubble.Rows(i+j)("Y")
'SeriesBubble.Y.DataField = "A" '
End If
Next
Next
SeriesBubble.MarkSize= 10
加好友 
发短信
Post By：2018/6/16 10:00:00 [显示全部帖子]
