主题：柱形图的颜色如何更改

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
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.SeriesList(0).FillColor= Color.Red
Chart.SeriesList(1).FillColor= Color.Green

Series不是凭空生成的，要用Add方法增加的

For i As integer = 0 to 7 '指定每个数据点的位置
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 8 '新增图系包括10个数据点
    .....
Next

同一个图系的颜色是相同的,不能单独指定图系某个点的颜色.
你只有一个图系,自然下面的代码要出错,因为图系1到7是不存在的,只有图系0

解决办法:

除非你增加8个图系,每个图系一个点

Dim lst As List(Of String)
lst.add("红")
lst.add("黑")
lst.add("白")

应该改为:

Dim lst As New List(Of String)
lst.add("红")
lst.add("黑")
lst.add("白")

其他自己研究

别做了,我测试过,不好看.

我也没办法，只能做到这样的：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目48.table

没有办法的

12楼的文件本来就只有几个坐标点的

不明白,请贴个例子分享一下.

呵呵，这样就行了：

For n As integer = 1 To 8
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 1
    Series.X(0) = 1 '指定水平坐标
    Series.Y(0) =5 + Rand.Next(1,3) '垂直坐标用随机数生成
Next

只是这样到了另一个极端