Win编程 订阅所有【Win编程】的日志

VB6.0使用MSChart控件示例

编辑:dnawo 日期:2012-04-29

字体大小: 小 中 大
在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即可：


上一篇: Visual Studio 2008：两种方法添加应用程序到安装项目应用程序文件夹
下一篇: UML辅助网站规划和设计指南
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
评论: 0 | 引用: 0 | 查看次数: 18380
发表评论
请登录后再发表评论！