《VB6 里MSCHART 画两条曲线.docx》由会员分享，可在线阅读，更多相关《VB6 里MSCHART 画两条曲线.docx（6页珍藏版）》请在三一办公上搜索。
1、VB6 里MSCHART 画两条曲线一条曲线的代码如下 ： Dim MyData(12, 1) As Double -x轴坐标值-Y轴坐标值- MyData(0, 0) = 0: MyData(0, 1) = 180 本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180 MyData(1, 0) = 1: MyData(1, 1) = 960 MyData(2, 0) = 2: MyData(2, 1) = 60 MyData(3, 0) = 3: MyData(3, 1) = 0 MyData(4, 0) = 4: MyData(4, 1) = 0 MyData(5, 0) = 5: My
2、Data(5, 1) = 60 MyData(6, 0) = 6: MyData(6, 1) = 60 MyData(7, 0) = 7: MyData(7, 1) = 0 MyData(8, 0) = 8: MyData(8, 1) = 60 MyData(9, 0) = 9: MyData(9, 1) = 60 MyData(10, 0) = 10: MyData(10, 1) = 0 MyData(11, 0) = 11: MyData(11, 1) = 0 MyData(12, 0) = 12: MyData(12, 1) = 60 波形图外观设置 With MSChart1 .Tit
3、leText = 值 设置图线的外观 .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 = 12 .Plot.Axis(VtChAxisIdY).Valu
4、eScale.Maximum = 1000 / 设置最小值 .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0 .Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0 / .Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 12 X轴主要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 Y轴主要网格数量 .Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision
5、 = 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 = Vt
6、ChChartType2dXY 设置图形为二维散点图 MSChart1.ChartData = MyData 数据 End With 我想再添加一条蓝色的 谁能给下代码！急！ 代码如下所示。用！开头的注释是我加入的主要解释。实现所需效果。 Dim MyData(12, 2) As Double ！加入1维就是增加一条线 -x轴坐标值-Y轴坐标值- MyData(0, 0) = 0: MyData(0, 1) = 180 本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180 MyData(1, 0) = 1: MyData(1, 1) = 960 MyData(2, 0) = 2: MyDat
7、a(2, 1) = 60 MyData(3, 0) = 3: MyData(3, 1) = 0 MyData(4, 0) = 4: MyData(4, 1) = 0 MyData(5, 0) = 5: MyData(5, 1) = 60 MyData(6, 0) = 6: MyData(6, 1) = 60 MyData(7, 0) = 7: MyData(7, 1) = 0 MyData(8, 0) = 8: MyData(8, 1) = 60 MyData(9, 0) = 9: MyData(9, 1) = 60 MyData(10, 0) = 10: MyData(10, 1) = 0
8、MyData(11, 0) = 11: MyData(11, 1) = 0 MyData(12, 0) = 12: MyData(12, 1) = 60 ！为新加入的一条线赋值 Dim i As Integer For i = 0 To 12 MyData(i, 2) = 0.3 * MyData(i, 1) Next 波形图外观设置 With MSChart1 .TitleText = 值 设置图线的外观 .Plot.SeriesCollection(1).Pen.Width = 30 .Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
9、 ！设置第二条线的外观 .Plot.SeriesCollection(2).Pen.Width = 30 .Plot.SeriesCollection(2).Pen.Style = VtPenStyleSolid 设置XY轴 .Plot.Axis(VtChAxisIdX).ValueScale.Auto = False .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False / 设置最大值 .Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 12 .Plot.Axis(VtChAxisIdY).ValueScale.
10、Maximum = 1000 / 设置最小值 .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0 .Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0 / .Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 12 X轴主要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 Y轴主要网格数量 .Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 X轴
11、次要网格数量 .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 = VtChChart
12、Type2dLine！必须为线图，二维散点图只有一条线，用来表示散点分布情况 MSChart1.chartType = VtChChartType2dXY 设置图形为二维散点图 MSChart1.ChartData = MyData 数据 End With 效果如下：成功加入了一条蓝色的。 多出来的红线是什么意思呢？ 横坐标的R1,R2.这些怎更改呢? 拖一个mschart1到窗体上 代码如下，全部粘贴覆盖。 Option Explicit Private Sub Form_Load Dim MyData(12, 2) As Double -x轴坐标值-Y轴坐标值- MyData(0, 2)
13、= 100: MyData(0, 0) = 180 本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180 MyData(1, 2) = 11: MyData(1, 0) = 960 MyData(2, 2) = 112: MyData(2, 0) = 60 MyData(3, 2) = 103: MyData(3, 0) = 0 MyData(4, 2) = 44: MyData(4, 0) = 0 MyData(5, 2) = 55: MyData(5, 0) = 60 MyData(6, 2) = 66: MyData(6, 0) = 60 MyData(7, 2) = 77: MyDa
14、ta(7, 0) = 0 MyData(8, 2) = 28: MyData(8, 0) = 60 MyData(9, 2) = 9: MyData(9, 0) = 60 MyData(10, 2) = 110: MyData(10, 0) = 0 MyData(11, 2) = 101: MyData(11, 0) = 0 MyData(12, 2) = 112: MyData(12, 0) = 60 波形图外观设置 With MSChart1 .TitleText = 值 设置图线的外观 .Plot.SeriesCollection(1).Pen.Width = 30 .Plot.Seri
15、esCollection(1).Pen.Style = VtPenStyleSolid .Plot.SeriesCollection(2).Pen.Width = 30 .Plot.SeriesCollection(2).Pen.Style = VtPenStyleNull不显示第二条绿色线，只要红蓝 .Plot.SeriesCollection(3).Pen.Width = 30 .Plot.SeriesCollection(3).Pen.Style = VtPenStyleSolid 设置XY轴 .Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
16、 .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False / 设置最大值 .Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 12 .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 1000 / 设置最小值 .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0 .Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0 / .Plot.Axis(VtChAxisIdX).ValueScale.MajorD
17、ivision = 12 X轴主要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 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 = VtChChartType2dLine 设置图形为线图 MSChart1.ChartData = MyData 数据 设置R1-R13，其余以此类推。 Dim i As Integer For i = 1 To 13 .Row = i .RowLabel = i Next End With End Sub 红蓝两条线。
