在复选组合框选择值后生成的图表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在复选组合框选择值后生成的图表后，图表的滚动条代码无效了，如何处理？

1、在复选组合框TextChanged事件中写入：

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

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

Dim tb1 As Table = Tables("标录分析_Table1") '定义一个变量t引用数据表

Dim chk As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

If chk.Text = "" Then

MessageBox.Show("请选择球号后执行!")

Else

Dim lst As new List(Of String)

lst.AddRange(chk.Text.Split(","))

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

'Chart.ChartType = ChartTypeEnum.Bar

Chart.AxisX.ClearValueLabel '清除所有通过SetValueLabel设置的数值字符标示

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

Dim gd As C1Chart.C1Chart = Chart.BaseControl '图表加滚动条

For Each c As String In lst

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

Series.Text = c '设置图系的标题

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

Series.DataLabelText = "{#YVAL}%" '所有线条显示数据标示

For i As Integer = 0 To tb1.Rows.Count - 1

Series.X(i) = i

Series.Y(i) = Round2(tb1.Rows(i)(c)* 100,2)

Chart.AxisX.SetValueLabel(i,Format(tb1.Rows(i)("开标日期"),"yy-MM-dd") & vblf & Format(tb1.Rows(i)("本期概算"),"0.00"))

Series.FitType = FitTypeEnum.Spline '采用平滑线条

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

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度

Dim fnt As New Font("黑体",10)

Chart.AxisX.Font = fnt

gd.ChartArea.AxisX.ScrollBar.min = 0

gd.ChartArea.AxisX.ScrollBar.max = tb1.Rows.count

gd.ChartArea.AxisX.ScrollBar.Scale = 60 / tb1.Rows.count '比例,自己算 '图表加滚动条

End If

2、在在复选组合框Enter事件中写入：

e.Sender.ComboList = "中标比例|公司比例"

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图表20180731.table

gd.ChartArea.AxisX.ScrollBar.min = 0

gd.ChartArea.AxisX.ScrollBar.max = tb1.Rows.count

gd.ChartArea.AxisX.ScrollBar.Scale = 60 / tb1.Rows.count '比例,自己算 '图表加滚动条

gd.ChartArea.AxisX.ScrollBar.visible = True

漂亮美眉vszh

此主题相关图片如下：甘特图2.png

老师，滚动条出来了，谢谢您。

还有个问题，图表中有些进度条太短，字体溢出，没办法体现字信息

这个字体，颜色想改下

'Chart.SeriesList.DataLabelForeColor = Color.black

'Chart.Series.DataLabelForeColor = Color.black

漂亮美眉vszh

这两句话试了下都不行

Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt '图表类型为甘特图
Chart.Inverted = True '对调X轴和Y轴位置
Chart.AxisY.DateType= True 'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" '设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2010# '设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2010# '设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
With Chart.SeriesList
    .AddGanttSeries("任务一", #1/1/2010#, #3/9/2010#)
    .AddGanttSeries("任务二", #1/23/2010#, #2/14/2010#)
    .AddGanttSeries("任务三", #1/21/2010#, #2/24/2010#)
    .AddGanttSeries("任务四", New DateTime() {#1/22/2010#, #2/28/2010#}, New DateTime() {#2/12/2010#, #3/24/2010#})
    .AddGanttSeries("任务五", New DateTime() {#2/13/2010#, #3/8/2010#}, New DateTime() {#3/5/2010#, #3/31/2010#})
    .AddGanttSeries("任务六", #3/15/2010#, #4/20/2010#)
    .AddGanttSeries("任务七", #4/6/2010#, #4/30/2010#)
    .AddGanttLabels("M月d日")
End with

漂亮美眉vszh

Chart.SeriesList.DataLabelForeColor = Color.black

Chart.Series.DataLabelForeColor = Color.black

主题：在复选组合框选择值后生成的图表问题