vb6.0中MSchart控件的使用

可以用的，我前几天刚刚添加进去的。在工具箱的空白处添加嫌陵选项卡命名为OWC，然后右键选择添加芹谈戚选择项。在COM组件中选择MICROSOFT office chart 11等你需要的控件，都可以添加进去的。只是我添加进去的只能在窗侍闷体中使用，在ASP.NET中用不了。我也不明白是哪块的设置问题。你自己试试看。

（1）在窗体上布置一个MSChart控件

（2）窗体代码宏友

Option Explicit

Private Sub Form_Load()

'设置MSChart1

With MSChart1

'图上只画一条曲线

.ColumnCount = 1

'设置图表类型为二维曲线；默认为直方图

.chartType = VtChChartType2dLine

'X轴显示10个单位

.RowCount = 10

End With

'曲线数据

Dim v(1 To 10) As Single

Dim i As Integer

'曲线数据随机产生

For i = 1 To 10

v(i) = Rnd * 99 + 1

Next

' 显示曲线

With MSChart1

For i = 1 To 10

' 指定X轴的坐标

.Row = i

' X轴标签

.RowLabel = i

' 与x对应的值

.data = v(i)

Next

End With

End Sub（3）运行结果

（4）其他注意事项

在设计状态，鼠标右键单裂瞎击MSChart控件，在d出菜单中单击“属性”，可以调出控件的属性页窗口。利用蔽源槐这个窗口，可以直观地设计MSChart

Microsoft Chart 控件是一个数据绑定控件，允许纤销您以图形方式表示数值数据。不像其他数据绑定控件，Chart 控件不能同 Remote Data 控件一起使用，也不能同 Data 控件一起使用。它可以同 ADO Data Control、ADO Recordset 以及 Data Environment 一起使用。该示例将显示如何打开一个 ADO Recordset，该 ADO Recordset 包含了您想要显示的字段，并且 Chart 控件的 DataSource 属性设置为 Recordset 对象。如果第一个字段包含字符串数据，则该数据将作为 X 轴标签使用兄闭。下面的示例显示了三组数据，先创建一个具有四个字段的 Recordset 对象；第一个字段包含 X 轴的标签，而其他的字段作为系列数据显示。Option Explicit' 确保设置一个对 Microsoft ActiveX Data ' Objects 2.0 Library 的引用。Private rsProducts As New ADODB.RecordsetPrivate cn As New ADODB.ConnectionPrivate Sub Form_Load() Dim strQuery As String ' SQL 查询字符串。 ' 首先将路径改为到您机器的一个有效路径。 cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.3.51Data Source=" &_ "C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb" ' <-更改该路径。 ' 打羡竖裂开连接。 cn.Open ' 创建一个只检索四个字段的查询。 strQuery = "SELECT ProductName, UnitPrice, " &_ "UnitsInStock, UnitsOnOrder FROM Products WHERE SupplierID = 1" ' 打开记录集。 rsProducts.Open strQuery, cn, adOpenKeyset ' 将 DataSource 设置为该记录集。 With MSChart1 .ShowLegend = True Set .DataSource = rsProducts End WithEnd Sub

---