vb 折线图

您可以使用 Microsoft Chart Control 来实现图表功能。
方法 1：用数据绑定
需要注意的是，
如果对 Chart 使用 DataSource 属性做数据绑定，
那么还需要 Microsoft ADO Data Control 来代替 Data 控件。
[或者你也可以使用数据环境（DataEnvironment），你可以在菜单 工程 -> 更多 ActiveX

设计器 中找到]
因为 Chart Control 使用 ADO 而不是 DAO。

1.进入菜单 工程->部件 添加对 Microsoft Chart Control 以及 Microsoft ADO Data

Control 的引用，然后把控件加到窗体上。它们的默认名称分别为 MSChart1 和 Adodc1（

你可以重新命名，但下文用默认名称）；
2.选择 Adodc1 的 ConnectionString 属性，然后点击右侧的“...”按钮，再点“生成”

；
3.在“数据连接属性”中的“提供程序”页面中，你需要注意你的数据库类型。如果是

Access（.mdb），则选择 Microsoft Jet 3.51 OLE DB Provider（或其他版本，只要是

Microsoft Jet 即可）。然后点击“下一步”继续；
4.在“连接”选项卡中选择数据库以及登陆信息（如果需要），再点“测试连接”。如果成

功，则点“确定”一直返回；
5.选择 Adodc1 的 ConnectionString 属性，然后点击右侧的“...”按钮，将“记录源”

选项卡中的命令类型设置为 adCmdTable（表） 或 adCmdText（SQL 语句），并选择合适的

表或输入 SQL 语句；
6.在属性窗口中将 MSChart1 的 DataSource 属性设置为 Adodc1，然后选择“（自定义）

”，打开属性页，进行详细设置（这块就跟 Office 差不多了……）；
7.现在你就可以运行并预览一下初步效果了。

方法二：用代码设置
如果你不使用数据绑定，那么你还可以通过下面的方式来设置图表的数据：
'Eg. 向图表加入下面的数据：
'5 10
'15 20
With MSChart1
.RowCount = 2
.ColumnCount = 2
.Row = 1
.Column = 1
.Data = 5

.Row = 1
.Column = 2
.Data = 10

.Row = 2
.Column = 1
.Data = 15

.Row = 2
.Column = 2
.Data = 20
End With

如果存在问题，或是有其他要求，直接对问题作补充即可。我会补充答案的。