图表入门

要设计出一个吸引人的系统，图表是必不可少的。
在设计窗口的时候，插入一个Chart(图表)，你会发现，竟然没有任何特殊的属性可以设置。
但是别小看它，有了它，你可以用短短的几行代码，就可设计出这样的图表：

Foxtable提供了13种图表，上图只是其中的一种(XYPlot)，你甚至可以用它来生成复杂的股票分析图。

一个图表(Chart)包括几个图系(CharSeries)，上图中每一条不同颜色的线就是一个图系，一个图系由多个数据点组成，而数据点的坐标位置就表示具体的数据。
要绘制一个图表，最简单的步骤就是给图表增加图系，然后给这些图系添加数据点。

示例一

我们先来生成一个最简单的图表，在窗口中分别插入一个图表和一个按钮，将按钮的Click事件代码设置为：

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 10 '新增图系包括10个数据点
For i As integer = 0 to 9 '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = i + Rand.Next(5) '垂直坐标用随机数生成
Next

单击按钮，会生成下图所示的图表：

示例二

我们再改一下按钮的Click事件代码，这次不是一个图系，而是两个图系：

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
For n As integer = 0 To 1
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 10 '图系包括10个数据点
    For i As integer = 0 to 9 '指定每个数据点的位置
        Series.X(i) = i '指定水平坐标
        Series.Y(i) = i + n * 2 + Rand.Next(5) '垂直坐标用随机数生成
    Next
Next

这次单击按钮生成的图表是：

你也许感到奇怪，怎么这两幅图片的效果和第一副图片不同呢？
其实这两幅图片是默认的效果，如果你希望得到第一副图片的效果，在代码中加上下面这一句即可：

Chart.VisualEffect = True

还有一件怪事，每单击一次按钮，数据线的颜色和标记点的形状都会发生变化？ 这是因为我们没有明确指定图系的属性。
实际上，只要你愿意，你可以精确控制图表的每一个方面，我们会在后面讲述。