图表柱子颜色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，想每条柱子的颜色不一样，

改成多图系后，能更改颜色，但柱子宽度又太窄
图片点击可在新窗口打开查看

此主题相关图片如下：123456.png

此主题相关图片如下：23456.png

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

'Dim drs As List(Of DataRow)

'drs = DataTables(e.Form.name & "_Table1").Select("[辅助列] < 10","辅助列 DESC")

Chart= e.Form.Controls("Chart1")

Chart.SeriesList.Clear() '清除图表原来的图系

' If drs.count > 0 Then

' Chart.VisualEffect = True

Dim rb2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")

If rb2.Checked = True Then

Chart.ChartType = ChartTypeEnum.Bar

'Series = Chart.SeriesList.Add()

'Series.Length = 5

Dim sp4 As WinForm.SplitContainer = e.Form.Controls("SplitContainer4")

sp4.Panel1.Collapsed = True

Else

Chart.ChartType = ChartTypeEnum.Pie

End If

Dim zts() As String = {"已完成(延期)","已完成(如期)","进行中(延期)","进行中(将延)","进行中(如期)"}

For ri As Integer = 0 To 4 ' In drs

If rb2.Checked = True Then

'For Each c As Col In t.Cols

'If c.Name <> "产品" Then

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = zts(ri) '设置图系的标题

Series.Length = 1 ' t.Rows.Count '设置图系的长度

'For r As Integer = 0 To t.Rows.Count - 1

'Series.X(r) = r

'Series.Y(r) = t.Rows(r)(c.Name)

'Next

'End If

'Next

Series.X(0) = ri '指定水平坐标

Series.Y(0) = DataTables(e.Form.name & "_Table1").Compute("count(事项状态)","事项状态 = '" & zts(ri) & "'")

' Chart.AxisX.SetValueLabel(ri,zts(ri)) '指定字符表示

If zts(ri) = "进行中(延期)" Then

'Chart.SeriesList(ri).LineColor = Color.Red

Chart.SeriesList(ri).FillColor = Color.Red

ElseIf zts(ri) = "已完成(延期)" Then

'Chart.SeriesList(ri).LineColor = Color.Orange

Chart.SeriesList(ri).FillColor = Color.Orange

ElseIf zts(ri) = "进行中(将延)" Then

'Chart.SeriesList(ri).LineColor = Color.Yellow

Chart.SeriesList(ri).FillColor = Color.Yellow

ElseIf zts(ri) = "进行中(如期)"

' Chart.SeriesList(ri).LineColor = Color.SpringGreen

Chart.SeriesList(ri).FillColor = Color.SpringGreen

ElseIf zts(ri) = "已完成(如期)" Then

' Chart.SeriesList(ri).LineColor = Color.Green

Chart.SeriesList(ri).FillColor = Color.Green

'ElseIf r("项目状态") = "停止执行项目" Then

'Series.FillColor = Color.Gray

End If

Chart.BarClusterWidth = 200

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Chart.AxisX.AnnoRotation = - 45

Series.DataLabelText = "{#YVAL}"

主题：图表柱子颜色