<转> SilverLight-Visifire图表控件简单应用
??????????? 'AddHandler dataPoint.MouseLeftButtonUp, New RoutedEventHandler(AddressOf dataPointMouseLeftBtnUp)
??????????? dataSeries.DataPoints.Add(dataPoint)
??????? Next
??????? Dim dataSeries2 As New DataSeries
??????? '单个数据线
??????? dataSeries2.RenderAs = Visifire.Charts.RenderAs.Column
??????? dataSeries2.LegendText = "数据线2"
??????? Dim count2 As Integer = 6
??????? Dim random2 As New Random()
??????? For i As Integer = 0 To count - 1
??????????? '单个数据线中的数据点
??????????? Dim dataPoint2 As New DataPoint
??????????? dataPoint2.YValue = random.Next(1, 100)
??????????? dataSeries2.DataPoints.Add(dataPoint2)
??????? Next
??????? chart.Series.Add(dataSeries)
??????? chart.Series.Add(dataSeries2)
