欢迎光临

木子屋

标题: VB6.0使用MSChart控件示例

作者: dnawo

日期: 2012-04-29 11:36 PM

分类: Win编程

内容: 在VB6.0中选择菜单"工程→部件"，切换到控件选项卡，钩选"Microsoft Chart Control 6.0(OLEDB)"控件确定后即可将MSChart控件添加到工具箱：
一、绑定数据到MSChart控件
1.绑定两个系列数据到MSChart控件
复制内容到剪贴板 程序代码Dim data(1 To 10, 1 To 2) As Integer
Dim i As Integer
For i = 1 To UBound(data)
data(i, 1) = i * 10 '第一系列
data(i, 2) = i * 20 '第二系列
Next i
MSChart1.ChartData = data
效果图：
说明：系列的数目是由第二个维数决定的。
2.绑定两个系列数据到MSChart控件并设置x轴标签
复制内容到剪贴板 程序代码Dim data(1 To 10, 1 To 3)
Dim i As Integer
For i = 1 To UBound(data)
data(i, 1) = i & "月" 'X轴标签
data(i, 2) = i * 10 '第一系列
data(i, 3) = i * 20 '第二系列
Next i
MSChart1.ChartData = data
效果图：
说明：当第一系列赋值为字符串时，它即表示为x轴标签，注意此时数组data为Variant类型。
3.示例②的另一种实现方式
复制内容到剪贴板 程序代码With MSChart1
.ColumnCount = 2
.RowCount = 10
For Column = 1 To .ColumnCount
For Row = 1 To .RowCount
.Column = Column
.Row = Row
.data = Column * Row * 10
.RowLabel = Row & "月"
Next Row
Next Column
End With
效果图：
二、常见问题
问：怎么显示出图例？
答：设置MSChart1.ShowLegend = True。
问：图例中系列名称默认为C1,C2,...，可以修改吗？
答：可以修改，方法如下：
复制内容到剪贴板 程序代码With MSChart1
.ShowLegend = True
For Column = 1 To .ColumnCount
.Column = Column
.ColumnLabel = "系列" & Column
Next Column
End With
问：怎么去掉x轴的网格？
答：鼠标右击MSChart控件，选择属性打开属性页，切换到"轴网格"选项卡，将x轴主网格行样式设置为NULL即可：

+ 查看当前日志评论 (0)

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.660 ms

返回

标题: VB6.0使用MSChart控件示例

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.660 ms

返回

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.693 ms

返回