VBmschart控件的使用VIP免费

一、先看个小例子 Priv ate Su b Form_Load() Dim My Data(20, 1) As Dou ble '-----x 轴坐标值-----Y 轴坐标值---------- My Data(0, 0) = 0: My Data(0, 1) = 180 '本句代表了：第一点数据的 X 轴坐标为 0，Y 轴坐标为 180 My Data(1, 0) = 6: My Data(1, 1) = 60 My Data(2, 0) = 8: My Data(2, 1) = 60 My Data(3, 0) = 11: My Data(3, 1) = 0 My Data(4, 0) = 16: My Data(4, 1) = 0 My Data(5, 0) = 19: My Data(5, 1) = 60 My Data(6, 0) = 25.8: My Data(6, 1) = 60 My Data(7, 0) = 28.8: My Data(7, 1) = 0 My Data(8, 0) = 31.8: My Data(8, 1) = 60 My Data(9, 0) = 40.3: My Data(9, 1) = 60 My Data(10, 0) = 43.3: My Data(10, 1) = 0 My Data(11, 0) = 93.3: My Data(11, 1) = 0 My Data(12, 0) = 96.3: My Data(12, 1) = 60 My Data(13, 0) = 99.3: My Data(13, 1) = 0 My Data(14, 0) = 105.3: My Data(14, 1) = 0 My Data(15, 0) = 135.3: My Data(15, 1) = 0 My Data(16, 0) = 144.3: My Data(16, 1) = 180 My Data(17, 0) = 148.8: My Data(17, 1) = 270 My Data(18, 0) = 405.03: My Data(18, 1) = 270 My Data(19, 0) = 409.53: My Data(19, 1) = 180 My Data(20, 0) = 564.17: My Data(20, 1) = 180 '波形图外观设置 With MSChart1 .TitleTex t = "速度 m/min" ' '设置图线的外观 .Plot.SeriesCollection(1).Pen.Width = 30 .Plot.SeriesCollection(1).Pen.Sty le = VtPenSty leSolid ' '设置 XY 轴 .Plot.Ax is(VtChAx isIdX).Valu eScale.Au to = False .Plot.Ax is(VtChAx isIdY).Valu eScale.Au to = False '// 设置最大值 .Plot.Ax is(VtChAx isIdX).Valu eScale.Max imu m = 600 '设置横轴标注最大值 .Plot.Ax is(VtChAx isIdY).Valu eScale.Max imu m = 300 '设置纵轴标注最大值 '// 设置最小值 .Plot.Ax is(VtChAx isIdY).Valu eScale.Minimu m = 0 .Plot.Ax is(VtChAx isIdX).Valu eScale.Minimu m = 0 '// .Plot.Ax is(VtChAx isIdX).Valu eScale.MajorDiv ision = 6 'X 轴主...