SeriesList sList = new SeriesList();
sList.SeriesCollection.Add(new Series());
sList.ChartType = ChartType.Gantt;
sList.AxisFactor.YAxis.DataType = AxisDataType.DateTime;
sList.AxisFactor.YAxis.Interval = 7;
sList.AxisFactor.YAxis.DateTimeFormat = "yy-MM-dd";
sList.AxisFactor.XAxis.LabelFormat = new StringFormat();
sList.AxisFactor.XAxis.LabelFormat.LineAlignment = StringAlignment.Center;
sList.AxisFactor.XAxis.LabelFormat.Alignment = StringAlignment.Far;
for(int i = 0; i < 5; i++)
{
sList.SeriesCollection[0].items.Add(new SeriesItem());
}
sList.SeriesCollection[0].items[0].YStartDateTimeValue = new DateTime(2009, 1, 10);
sList.SeriesCollection[0].items[0].YDateTimeValue = new DateTime(2009, 1, 17);
sList.SeriesCollection[0].items[1].YStartDateTimeValue = new DateTime(2009, 1, 18);
sList.SeriesCollection[0].items[1].YDateTimeValue = new DateTime(2009, 1, 25);
sList.SeriesCollection[0].items[2].YStartDateTimeValue = new DateTime(2009, 1, 31);
sList.SeriesCollection[0].items[2].YDateTimeValue = new DateTime(2009, 2, 10);
sList.SeriesCollection[0].items[3].YStartDateTimeValue = new DateTime(2009, 2, 10);
sList.SeriesCollection[0].items[3].YDateTimeValue = new DateTime(2009, 2, 18);
sList.SeriesCollection[0].items[4].YStartDateTimeValue = new DateTime(2009, 2, 19);
sList.SeriesCollection[0].items[4].YDateTimeValue = new DateTime(2009, 2, 27);
sList.SeriesCollection[0].items[0].Name = "프로젝트 제안";
sList.SeriesCollection[0].items[1].Name = "DB 및 Framework 설계";
sList.SeriesCollection[0].items[2].Name = "개발 기간";
sList.SeriesCollection[0].items[3].Name = "1차 검수기간";
sList.SeriesCollection[0].items[4].Name = "유지 보수";
sList.SeriesCollection[0].items[0].ArrowLabel.Text = " 김철수, 박과장";
sList.SeriesCollection[0].items[1].ArrowLabel.Text = " 윤정남, 김팀장\r\n 김태우, 이우석, 이철민";
sList.SeriesCollection[0].items[3].ArrowLabel.Text = " 이동건";
sList.SeriesCollection[0].items[0].ArrowLabel.ForeColor = Color.Gray;
sList.SeriesCollection[0].items[1].ArrowLabel.ForeColor = Color.Gray;
sList.SeriesCollection[0].items[3].ArrowLabel.ForeColor = Color.Gray;
sList.SeriesCollection[0].items[0].ParentIndex = 1;
sList.SeriesCollection[0].items[1].ParentIndex = 2;
sList.SeriesCollection[0].items[3].ParentIndex = 4;
sList.SeriesCollection[0].items[0].GanttProcess.Percent = 0.3;
sList.SeriesCollection[0].items[1].GanttProcess.Percent = 0.5;
sList.SeriesCollection[0].items[3].GanttProcess.Percent = 0.7;
sList.SeriesCollection[0].items[0].GanttProcess.ProcessColor = Color.FromArgb(140, 202, 249);
sList.SeriesCollection[0].items[1].GanttProcess.ProcessColor = Color.FromArgb(107, 202, 102);
sList.SeriesCollection[0].items[3].GanttProcess.ProcessColor = Color.Red;
sList.SeriesCollection[0].ArrowLine.LineWidth = 3;
sList.AxisFactor.Orientation = AxisOrientation.TopLeft;
sList.SeriesCollection[0].items[0].ItemColor = Color.FromArgb(140, 202, 249);
sList.SeriesCollection[0].items[1].ItemColor = Color.FromArgb(107, 202, 102);
sList.SeriesCollection[0].items[2].ItemColor = Color.FromArgb(74, 126, 225);
sList.SeriesCollection[0].items[3].ItemColor = Color.Red;
sList.SeriesCollection[0].items[4].ItemColor = Color.LightBlue;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.DrawChart();
Dim sList As New. SeriesList()
sList.SeriesCollection.Add(New Series())
sList.ChartType = ChartType.Gantt
sList.AxisFactor.YAxis.DataType = AxisDataType.DateTime
sList.AxisFactor.YAxis.Interval = 7
sList.AxisFactor.YAxis.DateTimeFormat = "yy-MM-dd"
sList.AxisFactor.XAxis.LabelFormat = New StringFormat()
sList.AxisFactor.XAxis.LabelFormat.LineAlignment = StringAlignment.Center
sList.AxisFactor.XAxis.LabelFormat.Alignment = StringAlignment.Far
For i As Integer = 0 To 4
sList.SeriesCollection(0).items.Add(New SeriesItem())
Next
sList.SeriesCollection(0).items(0).YStartDateTimeValue = New DateTime(2009, 1, 10)
sList.SeriesCollection(0).items(0).YDateTimeValue = New DateTime(2009, 1, 17)
sList.SeriesCollection(0).items(1).YStartDateTimeValue = New DateTime(2009, 1, 18)
sList.SeriesCollection(0).items(1).YDateTimeValue = New DateTime(2009, 1, 25)
sList.SeriesCollection(0).items(2).YStartDateTimeValue = New DateTime(2009, 1, 31)
sList.SeriesCollection(0).items(2).YDateTimeValue = New DateTime(2009, 2, 10)
sList.SeriesCollection(0).items(3).YStartDateTimeValue = New DateTime(2009, 2, 10)
sList.SeriesCollection(0).items(3).YDateTimeValue = New DateTime(2009, 2, 18)
sList.SeriesCollection(0).items(4).YStartDateTimeValue = New DateTime(2009, 2, 19)
sList.SeriesCollection(0).items(4).YDateTimeValue = New DateTime(2009, 2, 27)
sList.SeriesCollection(0).items(0).Name = "프로젝트 제안"
sList.SeriesCollection(0).items(1).Name = "DB 및 Framework 설계"
sList.SeriesCollection(0).items(2).Name = "개발 기간"
sList.SeriesCollection(0).items(3).Name = "1차 검수기간"
sList.SeriesCollection(0).items(4).Name = "유지 보수"
sList.SeriesCollection(0).items(0).ArrowLabel.Text = " 김철수, 박과장"
sList.SeriesCollection(0).items(1).ArrowLabel.Text = " 윤정남, 김팀장" & vbCr & vbLf & " 김태우, 이우석, 이철민"
sList.SeriesCollection(0).items(3).ArrowLabel.Text = " 이동건"
sList.SeriesCollection(0).items(0).ArrowLabel.ForeColor = Color.Gray
sList.SeriesCollection(0).items(1).ArrowLabel.ForeColor = Color.Gray
sList.SeriesCollection(0).items(3).ArrowLabel.ForeColor = Color.Gray
sList.SeriesCollection(0).items(0).ParentIndex = 1
sList.SeriesCollection(0).items(1).ParentIndex = 2
sList.SeriesCollection(0).items(3).ParentIndex = 4
sList.SeriesCollection(0).items(0).GanttProcess.Percent = 0.3
sList.SeriesCollection(0).items(1).GanttProcess.Percent = 0.5
sList.SeriesCollection(0).items(3).GanttProcess.Percent = 0.7
sList.SeriesCollection(0).items(0).GanttProcess.ProcessColor = Color.FromArgb(140, 202, 249)
sList.SeriesCollection(0).items(1).GanttProcess.ProcessColor = Color.FromArgb(107, 202, 102)
sList.SeriesCollection(0).items(3).GanttProcess.ProcessColor = Color.Red
sList.SeriesCollection(0).ArrowLine.LineWidth = 3
sList.AxisFactor.Orientation = AxisOrientation.TopLeft
sList.SeriesCollection(0).items(0).ItemColor = Color.FromArgb(140, 202, 249)
sList.SeriesCollection(0).items(1).ItemColor = Color.FromArgb(107, 202, 102)
sList.SeriesCollection(0).items(2).ItemColor = Color.FromArgb(74, 126, 225)
sList.SeriesCollection(0).items(3).ItemColor = Color.Red
sList.SeriesCollection(0).items(4).ItemColor = Color.LightBlue
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.DrawChart()