VB mschart控件的使用.doc

下载文档 降价啦

65
0
约5.82千字
约 7页
2017-12-01 发布于江西
举报
版权申诉
保障服务

VB mschart控件的使用.doc

1、本文档共7页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

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.P