tomcat源码解析:vb mschart 用法

去这里找吧：
http://www.dll-files.com/dllindex/dll-files.shtml?msvbvm50

'''
'产生一个数据集
Dim ds As New DataSet
Dim dt As New DataTable
Dim dc As New DataColumn

''''''''Generate A Datatable
'Math : single
dc = New DataColumn
dc.ColumnName = "Math Score"
dc.DataType = System.Type.GetType("System.Single")
dt.Columns.Add(dc)

'English : single
dc = New DataColumn
dc.ColumnName = "English Score"
dc.DataType = System.Type.GetType("System.Single")
dt.Columns.Add(dc)

Dim dr As DataRow
Dim i As Integer
For i = 0 To 10
dr = dt.NewRow
dr.Item(0) = Rnd() * 100
dr.Item(1) = Rnd() * 100
dt.Rows.Add(dr)
Next
dt.TableName = "tblStudent"
ds.Tables.Add(dt)

'''
' Read ChartData from dataset
' Only the first Datatable
'''
Dim ChartData(,) As Object
ReDim ChartData(ds.Tables(0).Rows.Count, ds.Tables(0).Columns.Count)
Dim k, l As Integer
For k = 0 To ds.Tables(0).Rows.Count - 1
For l = 0 To ds.Tables(0).Columns.Count - 1
ChartData(k, l) = ds.Tables(0).Rows(k).Item(l)
Next
Next
Me.AxMSChart1.chartType = MSChart20Lib.VtChChartType.VtChChartType2dXY
Me.AxMSChart1.ChartData = ChartData