以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  图标甘特图问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152073)

--  作者：aidimeng --  发布时间：2020/7/8 9:39:00 --  图标甘特图问题 借助帮助 生成了 甘特图，有两个问题 1、SeriesList 的宽度能不能固定 2、图表外观可以修改成无边框那种 代码如下 Dim dr As Row = Tables("首页_table3").Current Dim Chart As WinForm.Chart Chart= Forms("首页").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 = dr("开始日期")\'设置Y轴的起始日期 Chart.AxisY.MaxDate =dr("结束日期")\'设置Y轴的终止日期 Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线 Chart.VisualEffect = False Chart.SeriesList.Clear() Dim t As Table= Tables("项目推进附表") With Chart.SeriesList For Each r As Row In t.Rows     .AddGanttSeries(r("推进内容"),  r("开始日期"),r("结束日期"))     .AddGanttLabels("M月d日") Next End With 此主题相关图片如下：qq截图20200708093452.png

--  作者：有点蓝 --  发布时间：2020/7/8 9:49:00 --   1、只能把控件设置宽一点 2、去掉图表的边框线条 Dim ctl As C1Chart.C1Chart = Forms("首页").Controls("Chart1").BaseControl ctl.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None ctl.ChartArea.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None

--  作者：aidimeng --  发布时间：2020/7/8 9:52:00 --   十分感谢