在vb.net中，如何使用MSchart完成统计图表

[suzx]

vb.net中，好像没有MSchart控件，而是activex控件AxMSchart,由于本人对vb 中的MSchart控件不熟悉，所以使用AxMSchart控件就更困难了。请哪为高手指教！谢谢！急，急！

[Montaque]

两个一样的。.NET对interop过来的CActivex组件都加一个Ax前缀。
真理了一段代码：

'''
'产生一个数据集
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

[szch]

大体上一致.
搞清楚cloume和row就行了

[suzx]

谢谢！你的帮助!

[eliphe]

推荐使用：
HSkyXChart Web统计图表 2.5

下载地址：http://www.skyec.com/cpxz.asp

附带asp、C#、VB.Net完整演示实例！

带完整演示程序,效果图和接口说明

可以生成柱型图,横柱型图,折线图,饼图,点图,区域图

完全免费

[suzx]

太好了。我正在找这样的控件，因为我用AXChart做出的统计图，效果不太好。在 VB6.0中用OLE控件，调用Excel统计图。而在VB.Net中没有该控件。所以您给我提供的信息太及时了。多谢！

[无极超人]

在这我推荐使用,Chart FX 图表组件。在这个网址
http://www.softwarefx.com/getchartfxlite 找到，注册并下载了，是一个Free Products，所以你放心用吧。