mschart示例和技巧.doc

一 二 打开MSDN，在“索引”页写下“MSChart 控件”回车，会有详细的使用说明，以下示例摘自MSDN:MSChart 控件示例下面的示例显示一个具有 8 行 8 列数据的三维图表，并设置了图例的参数。Private Sub Command1_Click()? ?With MSChart1? ?? ?显示一个具有 8 行 8 列数据的三维图表。? ?? ?.ChartType = VtChChartType3dBar? ?? ?.ColumnCount = 8? ?? ?.RowCount = 8? ?? ?For column = 1 To 8? ?? ?? ?For row = 1 To 8? ?? ?? ?? ?.Column = column? ?? ?? ?? ?.Row = row? ?? ?? ?? ?.Data = row * 10? ?? ?? ?Next row? ?? ?Next column? ?? ?将图表作为图例的背景。? ?? ?.ShowLegend = True? ?? ?.SelectPart VtChPartTypePlot, index1, index2, _? ?? ?index3, index4? ?? ?.EditCopy? ?? ?.SelectPart VtChPartTypeLegend, index1, _? ?? ?index2, index3, index4? ?? ?.EditPaste? ?End WithEnd Sub 三 过 程 名: subCurveInit作??? 用: 初始化MSChart,使其满足作图要求说??? 明: 作图时如下:???????? 当设置图形为二维散点图,画一条曲线时需定义一个二维数组MyData(0 to n,0 to 1),赋值方法如下???????? ******* X轴********y轴*******???????? MyData(0,0)=1:MyData(0,1)=1???????? MyData(1,0)=1:MyData(1,1)=1???????? .........???????? MyData(n,0)=1:MyData(n,1)=1???????? 当为两条曲线时定义MyData(0 to n,0 to 3),赋值如下???????? 第一条:**X轴***y轴******第二条:*****X轴******y轴*******???????? MyData(0,0)=1:MyData(0,1)=1:MyData(0,2)=1:MyData(0,3)=1???????? MyData(1,0)=1:MyData(1,1)=1:MyData(1,2)=1:MyData(1,3)=1???????? .........???????? MyData(n,0)=1:MyData(n,1)=1:MyData(n,2)=1:MyData(n,3)=1???????? 当为多条曲线的时候依此类推定义Mydata数组???????? 设置曲线相关属性可对.Plot.SeriesCollection(x)的子属性进行操作完成.(x为第几条曲线)???????? 最后令.ChartData = MyData即可修改历史:Dim MyData!(0 To 5, 0 To 3) Public Sub subCurveInit(Optional intAxisXMax As Integer, Optional intAxisXMin As Integer)??? //判断是否需要修改X轴显示范围,用于动态显示??? With frmMain.chaCurve??????? If intAxisXMax 0 Then //是否需要修改最X轴最大值??????????? .Plot.Axis(VtChAxisIdX).ValueScale.Maximum = intAxisXMax??? //X轴最大值??????????? If intAxisXMax 0 Then //是否修改X轴最小值??????????????? .Plot.Axis(VtChAxisIdX).ValueScale.Minimum = intAxisXMin??? //X轴最小值??????????? End If??????? Else //如果无需修改X轴最大或最小值,进行以下初始化工作???????? .TitleText = 温度/时间 //标题???????? .Title.VtFont.VtColor.Set 255, 255, 0