木子屋
 

标题: 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.031 ms

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

你没有权限发表评论

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms

暂无评论

返回

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms