VB mschart控件的使用

一、先看个小例子

 

Private Sub Form_Load()
Dim MyData(20, 1) As Double
    '-----x轴坐标值-----Y轴坐标值----------
    MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了:第一点数据的X轴坐标为0,Y轴坐标为180
    MyData(1, 0) = 6: MyData(1, 1) = 60
    MyData(2, 0) = 8: MyData(2, 1) = 60
    MyData(3, 0) = 11: MyData(3, 1) = 0
    MyData(4, 0) = 16: MyData(4, 1) = 0
    MyData(5, 0) = 19: MyData(5, 1) = 60
    MyData(6, 0) = 25.8: MyData(6, 1) = 60
    MyData(7, 0) = 28.8: MyData(7, 1) = 0
    MyData(8, 0) = 31.8: MyData(8, 1) = 60
    MyData(9, 0) = 40.3: MyData(9, 1) = 60
    MyData(10, 0) = 43.3: MyData(10, 1) = 0
    MyData(11, 0) = 93.3: MyData(11, 1) = 0
    MyData(12, 0) = 96.3: MyData(12, 1) = 60
    MyData(13, 0) = 99.3: MyData(13, 1) = 0
    MyData(14, 0) = 105.3: MyData(14, 1) = 0
    MyData(15, 0) = 135.3: MyData(15, 1) = 0
    MyData(16, 0) = 144.3: MyData(16, 1) = 180
    MyData(17, 0) = 148.8: MyData(17, 1) = 270
    MyData(18, 0) = 405.03: MyData(18, 1) = 270
    MyData(19, 0) = 409.53: MyData(19, 1) = 180
    MyData(20, 0) = 564.17: MyData(20, 1) = 180
'波形图外观设置
With MSChart1
    .TitleText = "速度 m/min"
'    '设置图线的外观
    .Plot.SeriesCollection(1).Pen.Width = 30
    .Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
'    '设置XY轴
    .Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
    .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
    '// 设置最大值
    .Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 600 '设置横轴标注最大值
    .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300 '设置纵轴标注最大值
    '// 设置最小值
    .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
    .Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0
    '//
    .Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 6 'X轴主要网格数量
    .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 6 'Y轴主要网格数量
    .Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量
    .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量
    .Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted
    .Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted
    MSChart1.Plot.AutoLayout = False
    MSChart1.Plot.UniformAxis = False
    MSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图
    MSChart1.ChartData = MyData '数据
End With

End Sub

 

 

 

二、mschart控件属性介绍

1.RowCount属性                             设置作图数据的行数。

2.ColumnCount属性                        设置作图数据的列数。

3.TitleText属性                                设置图题。

4.RowLabelCount属性                    设置行标的个数。

5.RowLabel属性                              设置行标。

6.ColumnLabelCount属性               设置列标的个数。

7.ColumnLabel属性                        设置列标。

8.Row属性                                      设置当前行。

9.Column属性                                 设置当前列。

10.AutoIncrement属性               如果数据是连续存放的,将AutoIncrement属性设为True,可以10 .                                              不用随时设置当前行和当前列,向图表控件提供数据时可以连续行。

11.ShowLagend属性                 设置为True时可以显示图例。

图表控件的类型

VtChChartType3dBar 0 3维条形图

VtChChartType2dBar 1 2维条形图

VtChChartType3dLine 2 3维折线图

VtChChartType2dLine 3 2维折线图

VtChChartType3dArea 4 3维域型图

VtChChartType2dArea 5 2维域型图

VtChChartType3dStep 6 3维阶梯图

VtChChartType2dStep 7 2维阶梯图

VtChChartType3dCombination 8 3维联合图

VtChChartType2dCombination 9 2维联合图

VtChChartType2dPie 14 2维饼形图

VtChChartType2dXY 16 2维坐标图

4 图表控件的数据

只有图表控件取得数据才有可能显示数据。图表控件的数据是存放在内置的数据网格内。图表控件数据网格取得数据的方法有:

1.使用Data属性

图表数据可以保存在图表控件的Data属性中。Data属性只能存储数字型的数据,而不能保存文本。在对Data属性赋值前,必须先设置RowCount属性和ColumnCount属性来提供数据的行数和列数,系统根据行数和列数安排Data的大小。

在向Data属性赋值时,还需要指明当前行和当前列。例如,

MSChart1.Column = 5

MSChart1.Data = XYZ

是将XYZ赋予Data的第3行第5列。

如果数据是连续存放的,并将AutoIncrement属性设为True,可以不用随时设置当前行和当前列。例如,

MSChart1.Data = X(1)

MSChart1.Data = X(2)

MSChart1.Data = X(3)

2.使用ChartData属性

ChartData属性既可以存放数字型数据,也可以存放文本型数据。例如,

Dim vntX(1 To 4) As Variant

vntX(1) = “产量”

vntX(2) = 200

vntX(3) = 300

vntX(4) = 400

MSChart1.ChartData = X

“产量”将标示在所绘制图形的X轴上。

3.使用SetData方法

格式是:

MSChart1.DataGrid.SetData 行,列,数值,nullFlag

“数值”为双精度。nullFlag指明数据点是否为空。

本章所开发的绘制图表应用程序使用SetData方法向图表对象添加数据。

4.图题、行标和列标

对图题、行标示和列标示的赋值分两种情况:

(1)使用Data属性和SetData方法

?图题的赋值使用TitleText属性。

?行标示或列标示的赋值先设置当前行或当前列,然后使用RowLabel属性或ColumnLabel属性。例如,

MSChart1.Row = 1

MSChart1.RowLabel = “A”

(2)使用ChartData属性

假定用图表控件表示一个2维数据,作图时使用MSChart1.ChartData = vntX。现在我们看一看vntX是如何形成的。

Dim vntX(1 To 3, 1 To 4) As Variant

vntX(1,1) = “产品质量逐年变化表” 图题放在vnt(1,1)

vntX(1,2) = ”1级” 列标放在第1行

vntX(1,3) = ”2级”

vntX(1,4) = ”3级”

vntX(2,1) = “1999年” 行标放在第1列

vntX(2,2) = 100 1级品数量

vntX(2,3) = 200 2级品数量

vntX(2,4) = 300 3级品数量

vntX(3,1) = “2000年” 行标放在第1列

vntX(3,2) = 300 1级品数量

vntX(3,3) = 200 2级品数量

vntX(3,4) = 100

 

 三、MSChart的元素组成

  

  最常用的属性包括

  ChartAreas:增加多个绘图区域,每个绘图区域包含独立的图表组、数据源,用于多个图表类型在一个绘图区不兼容时。

  AlignmentOrientation:图表区对齐方向,定义两个绘图区域间的对齐方式。

  AlignmentStyle:图表区对齐类型,定义图表间用以对其的元素。

  AlignWithChartArea:参照对齐的绘图区名称。

  InnerPlotPosition:图表在绘图区内的位置属性。

  Auto:是否自动对齐。

  Height:图表在绘图区内的高度(百分比,取值在0-100)

  Width:图表在绘图区内的宽度(百分比,取值在0-100)

  X,Y:图表在绘图区内左上角坐标

  Position:绘图区位置属性,同InnerPlotPosition。

  Name:绘图区名称。

  Axis:坐标轴集合

  Title:坐标轴标题

  TitleAlignment:坐标轴标题对齐方式

  Interval:轴刻度间隔大小

  IntervalOffset:轴刻度偏移量大小

  MinorGrid:次要辅助线

  MinorTickMark:次要刻度线

  MajorGrid:主要辅助线

  MajorTickMark:主要刻度线

  DataSourceID:MSChart的数据源。

  Legends:图例说明。

  Palette:图表外观定义。

  Series:最重要的属性,图表集合,就是最终看到的饼图、柱状图、线图、点图等构成的集合;可以将多种相互兼容的类型放在一个绘图区域内,形成复合图。

  IsValueShownAsLabel:是否显示数据点标签,如果为true,在图表中显示每一个数据值

  Label:数据点标签文本

  LabelFormat:数据点标签文本格式

  LabelAngle:标签字体角度

  Name:图表名称

  Points:数据点集合

  XValueType:横坐标轴类型

  YValueType:纵坐标轴类型

  XValueMember:横坐标绑定的数据源(如果数据源为Table,则填写横坐标要显示的字段名称)

  YValueMembers:纵坐标绑定的数据源(如果数据源为Table,则填写纵坐标要显示的字段名称,纵坐标可以有两个)

  ChartArea:图表所属的绘图区域名称

  ChartType:图表类型(柱形、饼形、线形、点形等)

  Legend:图表使用的图例名称

  Titles:标题集合。

  width:MSChart的宽度。

  height:MSChart的高度。

  常用事件:

  Series1.Points.DataBind()

  绑定数据点集合,如果要在一个MSChart控件的一个绘图区(ChartArea)内添加多个不同数据源的图表,就用这个主动绑定数据集合的方法。可以将表中指定字段的值绑定到指定的坐标轴上。

  MSChart1.DataBind()

 

2010年06月10日 星期二 15:46

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页