タスクを WinGanttView に追加

' Unassigned Project 以外の新しい Project を作成します。
Dim quarterlyProject As Project = Me.ultraCalendarInfo1.Projects.Add("QuartlerlyProject", DateTime.Today)
quarterlyProject.Key = "projkey1"
' サマリーまたは親タスクを作成します。
Dim requirementsTask As Task = Me.ultraCalendarInfo1.Tasks.Add(DateTime.Today, TimeSpan.FromDays(5), "Requirements", "projkey1")
' 子タスクを作成します
Dim budgetTask As Task = requirementsTask.Tasks.Add(DateTime.Today, TimeSpan.FromDays(2), "Budget Analysis")
' 期限を設定します。
budgetTask.Deadline = DateTime.Today.AddDays(3)
'このタスクにリソースを割り当てします。
Dim budgetOwner As Owner = Me.ultraCalendarInfo1.Owners.Add("BudgetOwner", "Bill Isacky")
budgetTask.Resources.Add(budgetOwner)
' 別の子タスクを作成します。
Dim teamTask As Task = requirementsTask.Tasks.Add(DateTime.Today.AddDays(3), TimeSpan.FromDays(2), "Team Allocation")
' この Task に Constraint (制約)を設定します。
teamTask.ConstraintDateTime = DateTime.Today.AddDays(4)
teamTask.Constraint = TaskConstraint.FinishNoLaterThan
' サマリーまたは親タスクを作成します。
Dim implemetationTask As Task = Me.ultraCalendarInfo1.Tasks.Add(DateTime.Now.AddDays(7), TimeSpan.FromDays(3), "Implementation", "projkey1")
' 子タスクを作成します
Dim frontendTask As Task = implemetationTask.Tasks.Add(DateTime.Now.AddDays(7), TimeSpan.FromDays(3), "GUI Design")
' この Task を Milestone (マイルストーン) に設定します。
frontendTask.Milestone = True
' この Task の達成率を設定します。
frontendTask.PercentComplete = 40
frontendTask.Dependencies.Add(budgetTask, TaskDependencyType.StartToStart)
frontendTask.Dependencies.Add(teamTask, TaskDependencyType.FinishToStart)
Me.ultraGanttView1.CalendarInfo = Me.ultraCalendarInfo1
' Unassigned Project の代わりにこの Project を GanttView に表示するのに、この新しい Project を GanttView に指定します。
Me.ultraGanttView1.Project = Me.ultraGanttView1.CalendarInfo.Projects(1)

// Unassigned Project 以外の新しい Project を作成します。
Project quarterlyProject = this.ultraCalendarInfo1.Projects.Add("QuartlerlyProject", DateTime.Today);
quarterlyProject.Key = "projkey1";
// サマリーまたは親タスクを作成します。
Task requirementsTask = this.ultraCalendarInfo1.Tasks.Add(DateTime.Today, TimeSpan.FromDays(5), "Requirements", "projkey1");
// 子タスクを作成します
Task budgetTask = requirementsTask.Tasks.Add(DateTime.Today, TimeSpan.FromDays(2), "Budget Analysis");
// 期限を設定します。
budgetTask.Deadline = DateTime.Today.AddDays(3);
//このタスクにリソースを割り当てします。
Owner budgetOwner = this.ultraCalendarInfo1.Owners.Add("BudgetOwner", "Bill Isacky");
budgetTask.Resources.Add(budgetOwner);
// 別の子タスクを作成します。
Task teamTask = requirementsTask.Tasks.Add(DateTime.Today.AddDays(3), TimeSpan.FromDays(2), "Team Allocation");
// この Task に Constraint (制約)を設定します。
teamTask.ConstraintDateTime = DateTime.Today.AddDays(4);
teamTask.Constraint = TaskConstraint.FinishNoLaterThan;
// サマリーまたは親タスクを作成します。
Task implemetationTask = this.ultraCalendarInfo1.Tasks.Add(DateTime.Now.AddDays(7), TimeSpan.FromDays(3), "Implementation", "projkey1");
// 子タスクを作成します
Task frontendTask = implemetationTask.Tasks.Add(DateTime.Now.AddDays(7), TimeSpan.FromDays(3), "GUI Design");
// この Task を Milestone (マイルストーン) に設定します。
frontendTask.Milestone = true;
// この Task の達成率を設定します。
frontendTask.PercentComplete = 40;
frontendTask.Dependencies.Add(budgetTask, TaskDependencyType.StartToStart);
frontendTask.Dependencies.Add(teamTask, TaskDependencyType.FinishToStart);
this.ultraGanttView1.CalendarInfo = this.ultraCalendarInfo1;
// Unassigned Project の代わりにこの Project を GanttView に表示するのに、この新しい Project を GanttView に指定します。
this.ultraGanttView1.Project = this.ultraGanttView1.CalendarInfo.Projects[1];