类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我想实现一个二维反映经济增长速度的二维柱状图，请问VB本身有这个控件吗？
谢谢！
网友回答：
mschart控件
示例代码：
Dim CN As New adodb.Connection 定义数据库的连接存放数据和代码
Dim Rs As New adodb.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select top 10 * from orders", CN, adOpenDynamic, adLockBatchOptimistic
With MSChart1
.ChartType = VtChChartType2dLine
.TitleText = "折线图示例"
.RowCount = Rs.RecordCount
For i = 1 To Rs.RecordCount
.Row = i
.Data = Rs("freight")
.RowLabel = Rs("freight")
.ColumnCount = 1
.ColumnLabel = "freight"
Rs.MoveNext
Next
End With
microsoft chart control 6.0