' 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)