MSCHART的使用之vb中利用MSCHART控件画二维散点图
VB环境下MSChart控件的应用与研究
某个油田的区块做横坐标，井口数做纵坐
标而形成的“井口数统计图”为例，如图
１所示。
图１ 井口数统计图
在此图中，由于区块过多，显示得不清楚，完全分不出哪个区块
对应的数值。解决这样的问
题，操作步骤为：
（１）将区块用编码表
示，如图２所示。
（２）用ＣｏｍｍａｎｄＢｕｔｔｏｎ
按钮，显示编码所表示的区
图２ 井口数统计数据编码图
Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ） Ｔｈｅｎ
ｊｓ ＝ ｊｓ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
ＭＲｅｃｏｒｄｓｅｔ１．Ｃｌｏｓｅ
ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＭｏｖｅＮｅｘｔ
Ｗｅｎｄ
Ｅｎｄ Ｗｉｔｈ
（２）区块大于１０个时的具体代码：
．ＲｏｗＬａｂｅｌ ＝ ＂＂
Ｅｌｓｅ
．ＲｏｗＬａｂｅｌ ＝ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ
＇行显示的内容（油田区块）
Ｅｎｄ Ｉｆ
Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ） Ｔｈｅｎ
ｋ ＝ ｋ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
网络纵横
２００８年第９期 146
ＶＢ环境下ＭＳＣｈａｒｔ控件的应用与研究
李旭东
（山东胜利职业学院）
摘 要 在Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０环境下，ＭＳＣｈａｒｔ控件还有些不能实现的功能，如横坐标的内容显示不清楚，ＭＳＣｈａｒｔ控件的宽度如何自 动调整以及调整后如何显示看不见的部分。本文主要针对以上问题，就如何改进及应用ＭＳＣｈａｒｔ控件进行了探讨。
VB6.0中通过MSChart控件调用数据库
《VB6.0中通过MSChart控件调用数据库》VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。
近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来，遇到了许多困难，最后用一个自定义的变量SelectSeries解决了问题，具体方法如下：设数据库名称为“学生信息”，有一Access表“学生成绩”，其内容为一个班学生的考试成绩，包括学号、姓名、成绩3个字段，成绩字段格式是字符型，值为“优”、“良”、“中”、“差”中的一个。
窗体Form1包括一个MSChart控件McScore，类型为二维饼图，用于显示每种成绩的学生数；一个ADO控件AdScore用于连接数据库；一个DataGrid控件DgScore用于以表格形式显示数据库内容。
工作过程为：双击饼图的某个区域，则DgScore显示相应成绩的学生名单。
代码如下：Option ExplicitDim SelectedSeries as Integer ′自定义变量Dim Rs() as String ′提取记录集用的字符串数组Private Sub Form_Load()′设定DataGrid控件的数据源DgScore.DataSource=″AdScore″′设定ADO控件的连接字串和初始的记录源，即显示内容AdScore.ConnectString=″Provider=Microsoft.OLEDB.3.51;Persist_Security Info=False;Data Source=学生信息″AdScore.RecordSource=″selet ＊from学生成绩order by成绩″AdScore.Refresh′预设好提取记录用的SQL语句Rs(1)=″select＊from学生成绩where成绩=″＋Chr(34)＋″优″＋_Chr(34)＋″order by成绩″Rs(2)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″良″＋_Chr(34)＋″order by成绩″Rs(3)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″中″＋_Chr(34)＋″order by 成绩″Rs(4)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″差″_Chr(34)＋″order by成绩″End SubPrivate Sub McScore_SeriesSelected(Series as Integer,MouseFlags as _Integer,Cancel as Integer)SelectedSeries=SeriesEnd SubPrivate Sub McScore_PointSelected(Series as Integer,DataPoint as_Integer,MouseFlags as Integer,Cancel as Integer)SelectedSeries=SeriesEnd SubPrivate Sub McScore_Db1Click()′改变ADO控件的记录源并刷新Adoc1.RecordSource=Rs(SeletedSeries) Adoc1.RefreshEnd Sub(湖南高文杰)。
关于vb中MSCHART控件画二维线图
关于vb中MSCHART控件画二维线图问题如下：使用MSCHART控件做出类似下面这个图形的图来。
经过一些摸索给出如下答案：Private Sub Command1_Click()Dim MyData(0 To 4, 0 To 15) As StringDim iRow As Integer'损失时间H---第1行'次品数PCS---第2行'调机/转型号H---第3行' 报废KG---第4行MyData(1, 0) = "损失时间"MyData(2, 0) = "次品数"MyData(3, 0) = "调机/转型号"MyData(4, 0) = "报废"For i = 1 To 15MyData(0, i) = i & Space(1) '注意一定要后面的space(1)，这样做的目的是为了自动显示成标签(字符串类型)Next' 第1行数据初始化(注意，为0的数据不要赋值)iRow = 1MyData(iRow, 1) = 189: MyData(iRow, 2) = 280: MyData(iRow, 3) = 233MyData(iRow, 6) = 338: MyData(iRow, 7) = 356'第2行数据初始化iRow = 2MyData(iRow, 1) = 227: MyData(iRow, 2) = 190: MyData(iRow, 3) = 172MyData(iRow, 6) = 189: MyData(iRow, 7) = 232'第3行数据初始化iRow = 3MyData(iRow, 1) = 72: MyData(iRow, 2) = 145: MyData(iRow, 3) = 120MyData(iRow, 6) = 140: MyData(iRow, 7) = 205'第4行数据初始化iRow = 4MyData(iRow, 1) = 36.01: MyData(iRow, 2) = 37.05: MyData(iRow, 3) = 39.31MyData(iRow, 6) = 32.99: MyData(iRow, 7) = 37.98With MSChart1'------------------图线标记外观设置开始----------------------------------------------------------------For iRow = 1 To 4 '本循环设置4条线标记的大小，线的粗细.Plot.SeriesCollection(iRow).SeriesMarker.Auto = FalseWith MSChart1.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Visible = True: .Pen.Width = 10: .Size = 150End WithNext' 下面的语句单独设置每条线标记的图案类型'第一行标记iRow = 1.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleFilledCircle '圆形'第二行标记iRow = 2.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleFilledSquare '方形'第三行标记iRow = 3.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleFilledUpTriangle '三角形'第四行标记iRow = 4.Plot.SeriesCollection(iRow).DataPoints.Item(-1).Marker.Style = VtMarkerStyleStar '*形'------------------图线标记外观设置结束----------------------------------------------------------------'------------------ 图线外观设置开始----------------------------------------------------------------For iRow = 1 To 4 '本循环设置4条线的粗细及数据值的显示位置.Plot.SeriesCollection(iRow).Pen.Width = 10.Plot.SeriesCollection(iRow).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeRight.Plot.SeriesCollection(iRow).DataPoints(-1).DataPointLabel.VtFont.Size = 8'原图中不显示第一条数据线的数值If iRow = 1 Then .Plot.SeriesCollection(iRow).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeNoneNext'------------------图线外观设置结束----------------------------------------------------------------'------------------ 坐标轴外观设置开始----------------------------------------------------------------'设置X 轴外观.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False.Plot.Axis(VtChAxisIdX).AxisGrid.MinorPen.Style = VtPenStyleNull.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleNull'设置第一Y轴外观.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 380.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 19.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0.Plot.Axis(VtChAxisIdY).AxisGrid.MinorPen.Style = VtPenStyleNull.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleNull'设置第二Y轴外观.Plot.Axis(VtChAxisIdY2).AxisScale.Hide = True.Plot.Axis(VtChAxisIdY2).ValueScale.Auto = False.Plot.Axis(VtChAxisIdY2).AxisGrid.MinorPen.Style = VtPenStyleNull.Plot.Axis(VtChAxisIdY2).AxisGrid.MajorPen.Style = VtPenStyleNull'------------------坐标轴外观设置结束----------------------------------------------------------------'------------------ 图例外观设置开始----------------------------------------------------------------.ShowLegend = True.Legend.Backdrop.Frame.Style = VtFrameStyleSingleLine.Legend.Backdrop.Frame.Width = 10.Legend.Location.LocationType = VtChLocationTypeTopRight'------------------ 图例外观设置结束----------------------------------------------------------------'------------------ 图形区设置开始----------------------------------------------------------------.Plot.AutoLayout = False.Plot.LocationRect.Min.Set 0, 0.Plot.LocationRect.Max.Set .Width, .Height - 850 '减去图例的高度'------------------图形区设置结束----------------------------------------------------------------.Plot.DataSeriesInRow = True '设置图形按行读取数据.chartType = VtChChartType2dLine '设置图表类型.ChartData = MyDataEnd WithEnd SubMSCHART的使用之vb中利用MSCHART控件画二维散点图2008年03月31日星期一 16:12近日在学习傅立叶分解时,写了个小程序来验证自己对傅立叶分解的一些理解,为了更生动直观就需要画一些图形,以前总是用picture控件来实现,后来在网上看到VB中有个MSCHART控件可以来画很多类型的图形,就学习了一下,由于是第一次搞,所以按习惯在网上搜索相关帖子,发现没有一个很完整的关于MSCHART中二维散点图的例子,很是郁闷,经过我自己几天的努力,终于解决了这个问题.现以一个具体的例子来说明,希望我的这个例子能对大家有所帮助.这个例子是一个论坛上一位网友提出来的,但是这个问题一直到现在还没有人回答,我权当在这里回答一下吧.问题如下:根据此我写了下面的代码Private Sub Form_Load()'对于二维散点图来说，第一列代表了X轴坐标，第二列代表了Y轴坐标'因此在定义二维数据时，第二维定义为0到1，第一维代表了第几点数据，可根据数据点数变化'下面以数据点数有21点为列子Dim MyData(20, 1) As Double'-----x轴坐标值-----Y轴坐标值----------MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180MyData(1, 0) = 6: MyData(1, 1) = 60MyData(2, 0) = 8: MyData(2, 1) = 60MyData(3, 0) = 11: MyData(3, 1) = 0MyData(4, 0) = 16: MyData(4, 1) = 0MyData(5, 0) = 19: MyData(5, 1) = 60MyData(6, 0) = 25.8: MyData(6, 1) = 60MyData(7, 0) = 28.8: MyData(7, 1) = 0MyData(8, 0) = 31.8: MyData(8, 1) = 60MyData(9, 0) = 40.3: MyData(9, 1) = 60MyData(10, 0) = 43.3: MyData(10, 1) = 0MyData(11, 0) = 93.3: MyData(11, 1) = 0MyData(12, 0) = 96.3: MyData(12, 1) = 60MyData(13, 0) = 99.3: MyData(13, 1) = 0MyData(14, 0) = 105.3: MyData(14, 1) = 0MyData(15, 0) = 135.3: MyData(15, 1) = 0MyData(16, 0) = 144.3: MyData(16, 1) = 180MyData(17, 0) = 148.8: MyData(17, 1) = 270MyData(18, 0) = 405.03: MyData(18, 1) = 270MyData(19, 0) = 409.53: MyData(19, 1) = 180MyData(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 = FalseMSChart1.Plot.UniformAxis = FalseMSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图MSChart1.ChartData = MyData '数据End WithEnd Sub运行后的效果图如下MSCHART的二维散点图对于实际工作是有很大用途的，例如数据采集中,实现时间变量的曲线等等.希望这个例子对大家有帮助。
MSChart控件教程
MSChart控件这些内容是在学习过程中进行的整理，由于感到书籍资料或软件帮助中有时让人很不容易理解，特制作这个教程，以方便其他朋友学习，从新学习此控件的人的角度来描述相应的属性，相信也能让跟我一样程度的人更容易理解，可能在学习的过程中对某些属性与方法有理解不正确，请各位指正。
附录：1、AllowDynamicRotation作用：返回或设置是否可旋转图表注：需要图表的ChartType是3d类型才可以，当AllowDynamicRotation=True时，在图表中可按住ctrl+鼠标左键旋转图表。
示例：下列代码在窗体加载时将MSChart1设置为3d柱形图，并允许按住ctrl+鼠标左键旋转。
（窗体上放一个MSChart控件）Private Sub Form_Load()With MSChart1.chartType = VtChChartType3dBar '类型为3d柱形图，类形常数详见附录.AllowDynamicRotation = True '允许旋转End WithEnd Sub下列代码将以对话框的形式返回上面示例的AllowDynamicRotation值：MsgBox MSChart1.AllowDynamicRotation2、ChartData注：书中及软件帮助文档中说到数组需要变体型数值，是指如果要将数组第一个元素作为标题，其他作为数据，那个这个数组既有字符又有数字，那么就需要一个变体形。
如果数组中并不包含标题（或是之后使用属性来赋于标题），那么数组是可以定义类形的，个人建议先给定数组类型，之后再使用属性来设置标题。
作用：设置：将一个数组的数据作表图表的显示数据返回：将图表数据赋给一个数组示例：将数组元素作为图表的显示数据制作一个1行6列的的图表（数组的维代表图表的行，每维的元素代表列）Private Sub Form_Load()Dim 一维数组(1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法一维数组(1) = 1一维数组(2) = 2一维数组(3) = 3一维数组(4) = 4一维数组(5) = 5一维数组(6) = 6With MSChart1.chartType = VtChChartType2dBar '类型为3d柱形图.ChartData = 一维数组()End WithEnd Sub为了理解图表的行列与数组的维数的对应关系，再举例一个二维数组（图表对应就形成2行6列）Private Sub Form_Load()Dim 二维数组(1 To 2, 1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法二维数组(1, 1) = 1二维数组(1, 2) = 2二维数组(1, 3) = 3二维数组(1, 4) = 4二维数组(1, 5) = 5二维数组(1, 6) = 6二维数组(2, 1) = 1二维数组(2, 2) = 2二维数组(2, 3) = 3二维数组(2, 4) = 4二维数组(2, 5) = 5二维数组(2, 6) = 6With MSChart1.chartType = VtChChartType2dBar '类型为2d柱形图.ChartData = 二维数组()End WithEnd Sub下面是将数组的第一个元素设置成字符，使图表加载时将其作为标题的示例：Private Sub Form_Load()Dim 二维数组(1 To 2, 1 To 6)'为了表示得更清楚，我们采取逐个赋值的方法二维数组(1, 1) = "第一行标题"二维数组(1, 2) = 2二维数组(1, 3) = 3二维数组(1, 4) = 4二维数组(1, 5) = 5二维数组(1, 6) = 6二维数组(2, 1) = "第二行标题"二维数组(2, 2) = 5二维数组(2, 3) = 4二维数组(2, 4) = 3二维数组(2, 5) = 2二维数组(2, 6) = 1With MSChart1.chartType = VtChChartType2dBar '类型为2d柱形图.ChartData = 二维数组()End WithEnd Sub最后总结数组元素与维和图表行列的对应关系，作以下关系图：上述例子是将数组的内容反应到图表中，下面我们将使用上面的一维和二维图表，从图表中获得数据给数组，并将数组显示出来以验证结果（我们采取设置一个断点，然后通过视图\本地的方式来查看生成的数组）：从图中可以看到，对于我们用2给数组生成的图表，再赋给新的数组时，数组变成了3维，并且每维还多了一个元素用来存储行标签，既“R1”、“R2”，多出来的一维用来存储列标签，既“C1”、“C2”等。
使用MSChart组件绘制统计图表
２２ 创 建 数 据 库 表 ．
在 Ｏ ａｌ 据 库 Ｚ Ｘ 创 建 数 据 库 表 ｖ ｏｌｊ ＿ ｈ ｔ 该 ｒｃｅ数 Ｈ Ｘ ｉ ｃ ｃ ＿ｈ， ｌ
＿
表数 据 来 源 于 Ｅ Ｐ系 统 或 ＭＥ Ｒ Ｓ系统 ，表 结构 如表 １ 示 。 所
ｌ ｃ ｈｔ 表 １ 原 油 进 厂情 况表 ｖ ｏｉ ｊｌｃ ＿ｈ表结构
＿
＿
＿
ＭＡ ＮＲ Ｔ Ｎ ＶＡＲ ＨＡＲ２ （０ Ｎ Ｌ Ｃ ４） ＵＬ
原 油来 源 编 码 物 料名 称
调 用 ＭＳＥ ｃｌ０ ３中 图 表 制 作 功 能 等 ，根 据 某 厂 综 合 查 询 应 ｘ ｅ ０ ２ 用 系 统 的 开 发 ，该 应 用 系 统 属 典 型 的 ＢＳ模 式 ，这 里 主 要通 过 ／ 当月 、当年 原 油进 厂 情 况 （ 次 的进 厂 量 、存 储 埙 耗 、途 运 埙 每
Ｓ ｄＡ ｄｎｘ ｔ ｉ ｄ Ｏ ． ｅ及 中文 语 言 包 ＭＳ ｈ ｒ ｃ ｓ ｘ 。 安 装 完 后 ， ｕ ｏ ｅ Ｃ ａｔ Ｉ ｈ． ｅ ｅ 打 开 Ｖ ２ ０ ，在 创 建 项 目时 。 就 能 在 工 具 栏 中 看 到 ＭＳ ｈ ｒ Ｓ０ ８ Ｃ ａｔ
Ｓ ｕｃ１ 点 确 定 一 新 建 连 接 一 添 加 连 接 （ 改 为 Ｏａｌ 据 ｏ ｒｅ ） 更 ｒ ｅ数 ｃ 库 ）一 输 入 服 务 器 名 ｚｘ 、用 户 名 及 密 码 测 试 连 接 成 功一 选 ｈｘ
当 月 、 当年 原 油进 厂 情 况 在 页 面左 边 以表 格 的 形式 展示 ，右 面
以 直方 图的 形 式展 示 。
２． 创 建 网 站 ３
在 Ｖ ２０ Ｓ０ ８中创 建 Ａ ＰＮ Ｔ网 站 ，简单 起 见 ，假 设 仅 创 建 Ｓ ．Ｅ
MSChart控件的用法
介绍MSChart的常用属性和事件介绍MSChart的常用属性和事件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：横坐标绑定的数据源（如果数据源为T able，则填写横坐标要显示的字段名称）YValueMembers：纵坐标绑定的数据源（如果数据源为Table，则填写纵坐标要显示的字段名称，纵坐标可以有两个）ChartArea：图表所属的绘图区域名称ChartType：图表类型（柱形、饼形、线形、点形等）Legend：图表使用的图例名称Titles：标题集合。
MSChart属性
数据图表/报表技术图表/报表是数据信息输出最常用的格式，在各类管理系统中具有重要的作用和地位。
本章将通过数据报表设计器（Data Report Designer）、图表、直接编程打印、利用Microsoft Excel 和Microsoft Word等设计多种格式的报表。
这些报表格式是比较典型的报表形式，在实际开发中具有重要意义和作用。
在本章中将介绍有图表/报表的知识。
27.1 图表技术在实际编程过程中，有时需要将查询统计出来的数据用以图表的形式显示出来。
VB中提供了一个图表控件，使用该图表控件可以很方便地将数据以图表的形式显示统计出来。
在本节中将介绍一些有关图表的知识。
27.1.1 图表控件概述图表控件（MSChart）是可以按照一定的规范将数据以图表的形式绘制出来。
其绘制的数据源可以是动态数据，也可以存储数据中数据库中的数据、电子表格的数据等存储介质的数据。
可通过在控件的属性页中设置数据来创建图表，或者也可以从其他数据源为控件对象设置数据。
MSChart控件主要支持真三维表示，支持所有主要的图表和图形类型。
由于MSChart控件不是标准控件，要使用MSChart控件必需要将MSChart控件添加到控件工具箱中。
添加MSChart控件的方法为选择"工程"|"部件"命令，在出现的"部件"对话框中选择"Microsoft MSChart Controls 6.0(SP4)"选项并单击"确定"按钮。
这时候MSChart控件就被添加到VB的控件工具箱中。
27.1.2 图表控件的基本属性（1）设置MSChart控件对象的名称、大小、图表的标题、图表的页眉、图表的脚注、图表的行列数等，可通过设置MSChart控件的一些属性来完成。
MSChart控件的基本属性如表27-1所示。
表27-1 MSChart控件的基本属性续表续表下面将介绍MSChart控件中一些常用的属性。
MSCHART用法
1、MSChart控件的属性（1）ChartType属性：用于设置或返回图表类型，MSChart控件图表类型与对应ChartType属性值如表8.7所示。
如，ChartType=1则显示二维直方图，ChartType=14则显示饼图。
表8.7 MSChart图表类型（2）行（格）属性①RowCount属性：用于表示图表中总格（行）数。
例如：若MSChart控件显示二维数组Array_2(M，N)，则总格（行）数RowCount=M。
如：RowCount=5，表示有5格（行）数据。
若MSChart控件显示一维数组Array_1(N)的元素值，则总行数RowCount=1。
②Row属性：用于表示图表中某格（行）的序号。
若MSChart控件显示二维数组Array_2(M，N)，则图表中第I格的序号Row=I，当Row=1表示第1格（行）数据。
③RowLabel属性：用于表示格（行）标签名，默认值为Ri。
用户可以修改其值，如改为无锡地区人数、南京地区人数等。
④RowLabelCount属性：用于表示格（行）标签数，MSChart控件允许设置多个格（行）标签。
通常取值为1，当需要用2行以上的标签时，才修改此属性。
⑤RowLabelIndex属性：用于表示格（行）标签序号，用户通过设置不同格（行）标签序号选择不同格（行）标签进行编辑。
（3）列属性①ColumnCount属性：用于表示图表中每格（行）中的列数，即数组中列数N。
如设置ColumnCount=3，则每格（行）中有3列，图表每数据格用3个矩形或3个扇形表示。
②Column属性：用于表示图表中某格（行）某列的列序号，例如：Row=1,Column=1，表示图表中第1格（行）第1列。
③ColumnLabel属性：用于表示图表列标签名，默认为Ci。
④ColumnLabelCount属性：用于表示图表某格中的列标签数。
⑤ColumnLabelIndex属性：用于表示图表某格中的列标签序号。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
MSCHART的使用之vb中利用MSCHART控件画二维散点图
2008年03月31日星期一 16:12
近日在学习傅立叶分解时,写了个小程序来验证自己对傅立叶分解的一些理解,为了更生动直观就需要画一些图形,以前总是用picture控件来实现,后来在网上看到VB中有个MSCHART控件可以来画很多类型的图形,就学习了一下,由于是第一次搞,所以按习惯在网上搜索相关帖子,发现没有一个很完整的关于MSCHART中二维散点图的例子,很是郁闷,经过我自己几天的努力,终于解决了这个问题.现以一个具体的例子来说明,希望我的这个例子能对大家有所帮助.这个例子是一个论坛上一位网友提出来的,但是这个问题一直到现在还没有人回答,我权当在这里回答一下吧.问题如下:
如何用VB画出我附件中的图，请各位知道的高手指点下，小弟感激不尽！
最好能根据我给的数据写出具体的源代码，或者类似的也可以。
再次感谢！
上面是这个帖子的原始图形
根据此我写了下面的代码
Private Sub Form_Load()
'对于二维散点图来说，第一列代表了X轴坐标，第二列代表了Y轴坐标
'因此在定义二维数据时，第二维定义为0到1，第一维代表了第几点数据，可根据数据点数变化
'下面以数据点数有21点为列子
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的二维散点图对于实际工作是有很大用途的，例如数据采集中,实现时间变量的曲线等等.希望这个例子对大。