- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 甘特特 Y轴 任务的顺序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159478)
-- 发布时间：2020/12/27 23:10:00
-- 甘特特 Y轴 任务的顺序
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 = #1/2/2010# \'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
With Chart.SeriesList
.AddGanttSeries("任务一", #1/1/2010 8:30#, #1/1/2010 12:30#)
.AddGanttSeries("任务二", #1/1/2010 14:00#, #1/1/2010 21:00#)
.AddGanttLabels("HH分mm分")
End With
系统默认 任务一 是在最底层一行 任务二 是从最底层第二行开始
我希望是 任务1 是在第一行 任务2 是在下面第二行 请问这个要如何实现？
[此贴子已经被作者于2020/12/27 23:10:51编辑过]
-- 发布时间：2020/12/28 8:34:00
--
调换一下代码顺序：
With Chart.SeriesList
.AddGanttSeries("任务二", #1/1/2010 14:00#, #1/1/2010 21:00#)
.AddGanttSeries("任务一", #1/1/2010 8:30#, #1/1/2010 12:30#) .AddGanttLabels("HH分mm分")
End With