VB中如何使用mschart 控件画曲线图
表：LWL
字段是：日期、收入
现在就是想把表里的“收入”字画成曲线图
各位高手帮帮忙 展开
具体操作步骤如下：
1、首先，单击左侧工具框中的命令按钮，如下图所示，然后进入下一步。
2、其次，双击以直接在表单上绘制，如下图所示，然后进入下一步。
3、接着，或者可以单击命令按钮控件，再在页面上拖动绘制，如下图所示，然后进入下一步。
4、然后，如果对外观不满意，可以在属性窗口中对其进行更改，如下图所示，然后进入下一步。
5、随后，可以直接进入代码窗口，如下图所示，然后进入下一步。
6、最后，编写号后，单击运行即可，如下图所示。这样，问题就解决了。
ZESTRON
2024-09-04 广告
实现的方法和详细的操作步骤如下：
1、第一步，在工具箱中有命令按钮控件，见下图，转到下面的步骤。
2、第二步，执行完上面的操作之后，可以双击直接在表单上绘制，见下图，转到下面的步骤。
3、第三步，执行完上面的操作之后，也可以单击命令按钮控件并将图形拖到页面上，见下图，转到下面的步骤。
4、第四步，执行完上面的操作之后，如果对外观不满意，可以在“属性”窗口中进行更改，见下图，转到下面的步骤。
5、第五步，执行完上面的操作之后，或者直接进入代码窗口，见下图，转到下面的步骤。
6、第六步，执行完上面的操作之后，编辑完成，单击Run即可，见下图。这样，就解决了这个问题了。
1、首先我们在工具箱中的命令按钮控件。
2、接下来我们可以双击直接在窗体上绘制。
3、或者我们可以点击一下命令按钮控件，然后在页面上拖曳绘制。
4、如果对外观不满意的话我们可以在属性窗口中更改。
5、或者可以直接进入代码窗口。
6、编写完毕后我们点击运行。
注意事项：
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。
根据你的要求,我简单做了一个日期和收入的对应图,代码及调试结果如下所示
Private Sub Command1_Click()
Dim i As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lwl.mdb"
conn.Open
rs.Open "select * from lwl", conn, adOpenKeyset, adLockOptimistic
' Set MSChart1.DataSource = rs
With MSChart1
'// 以线条方式显示
.chartType = 3
'// 把刻录改为手工方式
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
'// 设置最大值
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000
'// 设置最小值
.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
'// 设置每格为 1
.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 1
'// 增加测试数据
.ColumnCount = 1
'//轴坐标标题
.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "日期"
.Plot.Axis(VtChAxisIdY, 0).AxisTitle = "收入"
'//轴坐标标题字体大小的设置
.Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15
.Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25
'//设置图表标题
.Title.Text = "日期和收入对应折线图"
'// 将图表作为图例的背景。
.ShowLegend = False
'// 标记每个点的值
For i = 1 To .Plot.SeriesCollection.Count
.Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
Next
If rs.RecordCount > 0 Then
rs.MoveFirst
Else
Exit Sub
End If
For i = 0 To rs.RecordCount - 1
.RowCount = rs.RecordCount
.Row = i + 1
.RowLabel = CStr(rs("日期"))
.Data = rs("收入")
rs.MoveNext
Next
End With
End Sub
参考资料： http://hi.baidu.com/mizuda/blog/item/ab8af02870fefff499250ac8.html
（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控件，在弹出菜单中单击“属性”，可以调出控件的属性页窗口。利用这个窗口，可以直观地设计MSChart
