Imports Infragistics.Win.UltraWinGanttView
Imports Infragistics.Win.UltraWinSchedule
Private Sub setDependencies()
' Create a Project
quarterlyProject.Key = "projkey1"
quarterlyProject.Name = "QuartlerlyProject"
quarterlyProject.StartDate = DateTime.Today
Me.ultraCalendarInfo1.Projects.Add(quarterlyProject)
Me.ultraGanttView1.CalendarInfo = Me.ultraCalendarInfo1
' Assign the new Project to GanttView so that this Project is shown in GanttView and not the unassigned Project.
Me.ultraGanttView1.Project = Me.ultraGanttView1.CalendarInfo.Projects(1)
requirementsTask.Name = rm.GetString("RequirementsTaskName")
requirementsTask.StartDateTime = DateTime.Today
requirementsTask.Duration = TimeSpan.FromDays(6)
' Assign Parent Task to the newly created Project
requirementsTask.Project = quarterlyProject
Me.ultraCalendarInfo1.Tasks.Add(requirementsTask)
budgetTask.Name = rm.GetString("BudgetTaskName")
budgetTask.StartDateTime = DateTime.Today
budgetTask.Duration = TimeSpan.FromDays(2)
' Add child task to parent task
requirementsTask.Tasks.Add(budgetTask)
teamTask.Name = rm.GetString("TeamTaskName")
teamTask.StartDateTime = DateTime.Today.AddDays(3)
teamTask.Duration = TimeSpan.FromDays(2)
' Add child task to parent task
requirementsTask.Tasks.Add(teamTask)
' Set Dependency between the two child tasks
teamTask.Dependencies.Add(budgetTask, TaskDependencyType.StartToStart)
Me.ultraGanttView1.TimelineSettings.DrawDependencyLines = True
' Set the dependency line color
Me.ultraGanttView1.TimelineSettings.DependencyLinkColor = Color.Red
End Sub