Imports Infragistics.Win.UltraWinSchedule
Imports Infragistics.Win.UltraWinGanttView
Private Sub GridSettings_Load(ByVal sender As Object, ByVal e As EventArgs) Handles GridSettings.Load
' Set the default appearance for all cells within the grid area of GanttView
Me.ultraGanttView1.GridSettings.CellAppearance.BackColor = Color.BlanchedAlmond
' Set the default appearance for all column headers within the grid area of GanttView
Me.ultraGanttView1.GridSettings.ColumnHeaderAppearance.ThemedElementAlpha = Alpha.Transparent
Me.ultraGanttView1.GridSettings.ColumnHeaderAppearance.BackColor = Color.Gray
' Set the Visible position of ‘Resource Names’ column in the grid area of GanttView to 1
Me.ultraGanttView1.GridSettings.ColumnSettings(TaskField.Resources).VisiblePosition = 1
' Set the default appearance for cells in the Duration column in the grid area of GanttView
Me.ultraGanttView1.GridSettings.ColumnSettings(TaskField.Duration).CellAppearance.BackColor = Color.Plum
' Set the appearance of the row selctors in the grid area of GanttView
Me.ultraGanttView1.GridSettings.RowSelectorAppearance.BackColor = Color.SkyBlue
' Set Row selector style in grid area of GanttView
Me.ultraGanttView1.GridSettings.RowSelectorHeaderStyle = Infragistics.Win.UltraWinGrid.RowSelectorHeaderStyle.ColumnChooserButtonFixedSize
' Set the default row appearance for a specific task in the grid area of GanttView
Me.ultraGanttView1.CalendarInfo.Tasks(0).GridSettings.RowAppearance.BackColor = Color.Gray
' Set the default cell appearance for a specific Task under a specific column in the grid area of GanttView
Me.ultraGanttView1.CalendarInfo.Tasks(0).Tasks(0).GridSettings.CellSettings(TaskField.Name).Appearance.BackColor = Color.Lime
' Disable column moving in the grid area of GanttView
Me.ultraGanttView1.GridSettings.AllowColumnMoving = False
' Set the selection overlay settings for a selected row in the grid area of GanntView
Me.ultraGanttView1.GridSettings.SelectionOverlayBorderColor = Color.Red
Me.ultraGanttView1.GridSettings.SelectionOverlayBorderThickness = 4
Me.ultraGanttView1.GridSettings.SelectionOverlayColor = Color.Green
End Sub