mschart画散点图VIP免费

PrivateSubForm_Load()DimMyData(20,1)AsDouble'-----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'波形图外观设置WithMSChart1.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=VtPenStyleDottedMSChart1.Plot.AutoLayout=FalseMSChart1.Plot.UniformAxis=FalseMSChart1.chartType=VtChChartType2dXY'设置图形为二维散点图MSChart1.ChartData=MyData'数据EndWithEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.AxMSChart1.chartType=MSChart20Lib.VtChChartType.VtChChartType2dLineMe.AxMSChart1.ChartData=xDimiAsIntegerFori=1ToMe.AxMSChart1.RowCountIfiMod3=0ThenAxMSChart1.Row=iAxMSChart1.RowLabel="第"+i.ToString+"周"ElseAxMSChart1.Row=iAxMSChart1.RowLabel=""EndIfNextDimcurrentaxisAsMSChart20Lib.AxisDimcurrentlabelAsMSChart20Lib.Label'getareferencetotheyaxiscurrentaxis=AxMSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY)Debug.WriteLine(currentaxis.AxisTitle)'loopthroughandsetthefontofeachlabelForEachcurrentlabelIncurrentaxis.Labelscurrentlabel.VtFont.Name="Courier"currentlabel.VtFont.Size=16NextcurrentlabelFori=1To2AxMSChart1.Plot.SeriesCollection(i).LegendText="Y"&iNextiAxMSChart1.Plot.SeriesCollection(1).Pen.Width=30AxMSChart1.Plot.SeriesCollection(1).Pen.Style=MSChart20Lib.VtPenStyle.VtPenStyleSolidAxMSChart1.Plot.AutoLayout=FalseAxMSChart1.Plot.UniformAxis=FalseAxMSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Auto=FalseAxMSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Minimum=0AxMSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Maximum=1000AxMSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.MajorDivision=5AxMSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.MinorDivision=1EndSub