使用数组和 ChartData 属性绘制数据 绘制图表最简单的方法就是创建数字型的数组,然后将 ChartData 属性设为该数组,如下例所示:' 这段代码可以粘贴到一个Form的 Load ' 事件中,该Form包含名为“MSChart1”的 ' MSChart 控件。 Dim arrPrices(1 to 10) Dim i As Integer For i = 1 to 10 arrPrices(i)= i * 2 Next i MSChart1.ChartData = arrPrices上面的代码将产生简单的单系列图表。图表中的一个“系列”就是一个相关的数据点集。例如,典型的系列可以是一年中商品的价格。下面的图表显示了一个单系列图表。要创建更复杂的多系列图表,必须创建多维数组,如下例所示:' 系列的数目是由第二个维数决定的。 ' 在本例中,图表将有两个系列, ' 每个系列有五个数据点。 Dim arrPriceQuantity(1 to 5, 1 to 2) Dim i as Integer For i = 1 to 5 arrPriceQuantity(i, 1) = i ' Series 1 arrPriceQuantity(i, 2) = 0 - i ' Series 2 Next i MsChart1.ChartData = arrPriceQuantity如果使用数据库的数据,简单使用就是把记录集的getrows赋值给图表控件 MsChart1.ChartData=rs.GetRows
使用数组和 ChartData 属性绘制数据
绘制图表最简单的方法就是创建数字型的数组,然后将 ChartData 属性设为该数组,如下例所示:' 这段代码可以粘贴到一个Form的 Load
' 事件中,该Form包含名为“MSChart1”的
' MSChart 控件。
Dim arrPrices(1 to 10)
Dim i As Integer
For i = 1 to 10
arrPrices(i)= i * 2
Next i
MSChart1.ChartData = arrPrices上面的代码将产生简单的单系列图表。图表中的一个“系列”就是一个相关的数据点集。例如,典型的系列可以是一年中商品的价格。下面的图表显示了一个单系列图表。要创建更复杂的多系列图表,必须创建多维数组,如下例所示:' 系列的数目是由第二个维数决定的。
' 在本例中,图表将有两个系列,
' 每个系列有五个数据点。
Dim arrPriceQuantity(1 to 5, 1 to 2)
Dim i as Integer
For i = 1 to 5
arrPriceQuantity(i, 1) = i ' Series 1
arrPriceQuantity(i, 2) = 0 - i ' Series 2
Next i
MsChart1.ChartData = arrPriceQuantity如果使用数据库的数据,简单使用就是把记录集的getrows赋值给图表控件
MsChart1.ChartData=rs.GetRows
MsChart1.ChartData=rs.GetRows