AddGanttSeries(taskName,startTime, endTime)
taskName: 任务名称
startTime:开始时间
endName: 结束时间
或者
AddGanttSeries(taskName,startTime(), endTime())
taskName: 任务名称
startTime:开始时间数组
endName: 结束时间数组
另外图系集合提供了一个AddGanttLabels,用于给甘特图加上标示。
语法:
AddGanttLabels(FormatStr)
FormatStr: 格式字符串。
甘特图的Y轴刻度是时间,不是数值,需要用坐标轴的MinDate和MaxDate设置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 = #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
这是生成的甘特图: