VB mschart控件的使用.doc

一、先看个小例子 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