MSChart控件.doc

MSChart控件 在VB中，除了可以利用Line和Circle方法绘制几何图形外，还可以利用MSChart控件绘制各种图表。MSChart控件在绘制直方图（条形图）、折线图、饼图、标记图、填充区域图等各种常用的数据分析图形方面有很大的优势，我们只要将需按图形表示的数据装入数组中，然后将数组数据赋值给MSChart控件，再进行一些简单的图形标题、背景、图例、注脚方面的定义，就可以得到所期望的数据分析图形。 【教学目标】 使学习者能够掌握MSChart控件的创建和使用方法。 ? 【教学要求】 掌握：定义统计图表数据源的方法。 理解：创建统计图表的过程及步骤。 掌握：MSChart控件的相关属性定义方法。 【本节重点】 ? 创建统计图表的过程及步骤。 一、MSChart控件 MSChart控件的系统默认名是：MSChart1、MSChart2等。由于MSChart控件不是VB内建的基本控件，因此在使用前必须用工程菜单中的“部件”，添加MSChart控件。添加MSChart控件的选项是“Microsoft Chart Control 6.0(OLEDB)”。当我们在VB的工具箱中添加了MSChart控件，并在窗体中“画”出MSChart控件后，可见到如下图形： 图：7.3 二、设置MSChart系列数据与图表类型 1、MSChart的系列 通过对图7.3的分析，我们可以看到MSChart图表中将数据分组显示。如图中R1、R2、R3、R4、R5各代表一个组，一组相关的数据在绘图中称为一个“系列”，一张图表可由一个或多个系列构成。 若MSChart控件被赋值一个一维数组数据，则它所显示的数据图形只绘制出一个系列的图表。若一维数组中的数据被绘制为直方图，则数组中的数据会被逐一绘制为直方图中的彩条。若一维数组中的数据被绘制为圆饼图，则数组中的数据会被逐一绘制为饼图中的彩色扇形。 若MSChart控件被赋值一个二维数组数据，则它所显示的数据图形将绘制出多个系列的图表。若二维数组中的数据被绘制为直方图，则数组中的数据会被分组逐一绘制为直方图中的彩条。若二维数组中的数据被绘制为圆饼图，则MSChart控件将绘制出多个圆饼图，每个系列的数据会被逐一绘制为饼图中的彩色扇形。 2、MSChart的ChartData属性 MSChart的ChartData属性用于存放系列数据。向MSChart的ChartData属性赋值的常用方法是：在程序中先将图形数据存入一个数组中，再将数组赋值给MSChart的ChartData属性。由于MSChart的ChartData属性是一个默认属性，因此该属性在编程中可以省略。如，MSChart1.ChartData=x与MSChart1=x语句，同为将数组X中的数据赋值给MSChart的语句。 利用MSChart的ChartData属性，还可以将MSChart所显示的图表数据装入数组。返回的数组总是二维的，下标下界都是1。 例如，我们如果要将MSChart1所显示的图表数据装入数组，就可以编写如下语句： ? Dim ar As Variant ? ar = MSChart1.ChartData 3、MSChart的图表类型 如果需要自定义MSChart控件所显示的图表类型，就需要对MSChart的ChartType属性进行设置，MSChart控件默认的图表类型是二维直方图。MSChart的ChartType属性既可以在控件的设计中利用属性窗口进行设置，也可以在程序中用命令语句设置。 例：在窗体中设计一个MSChart1控件和两个命令按钮Command1和Command2控件，编程令4行3列的二维数组x中赋值1－100之间的随机整数，并在Command1的Click事件中编程绘制x数组数据的直方图，在Command2控件的Click事件中编程绘制x数组数据的圆饼图。 Dim x(1 To 4, 1 To 3) As Integer???????? ‘在窗体的通用栏目中定义数组x Private Sub Form_Load() ? For i = 1 To 4 ??? For j = 1 To 3 ????? x(i, j) = Rnd * 100 ??? Next j ? Next End Sub Private Sub Command1_Click() ? MSChart1.chartType = VtChChartType2dBar ? MSChart1 = x End Sub Private Sub Command2_Click() ? MSChart1.chartType = VtChChartType2dPie ? MSChart1 = x End Sub 当Command1被鼠标单击后显示如下图形： 图