Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button4.Click
' Set the view style to OutlookGroupBy. Without it, group by box won't
' show up.
Me.UltraGrid1.DisplayLayout.ViewStyleBand = ViewStyleBand.OutlookGroupBy
' Set the group-by-box style to Compact to save space.
Me.UltraGrid1.DisplayLayout.GroupByBox.Style = GroupByBoxStyle.Compact
' Set the appearance of the group-by-box.
Me.UltraGrid1.DisplayLayout.GroupByBox.Appearance.BackColor = Color.White
' Set the group-by-box prompt. This text shows up in the group-by-box when
' there are no group-by columns.
Me.UltraGrid1.DisplayLayout.GroupByBox.Prompt = "Drag and drop a column to group by that column."
' Set the back color and fore color of the prompt area.
'Me.UltraGrid1.DisplayLayout.GroupByBox.PromptAppearance.BackColor = Color.LightGray
Me.UltraGrid1.DisplayLayout.GroupByBox.PromptAppearance.ForeColor = Color.Maroon
' Set the border style to InsetSoft.
Me.UltraGrid1.DisplayLayout.GroupByBox.BorderStyle = UIElementBorderStyle.InsetSoft
' Configure the buttons associated with grouped-by columns. When a column
' is dragged and dropped in the group-by-box, the rows get grouped by the
' column and the column becomes a group-by column.
'
Me.UltraGrid1.DisplayLayout.GroupByBox.ButtonBorderStyle = UIElementBorderStyle.RaisedSoft
' Change the band labels. By setting it to
' All, grid will show lables for all the bands.
Me.UltraGrid1.DisplayLayout.GroupByBox.ShowBandLabels = ShowBandLabels.All
' Configure the look of the band labels.
Me.UltraGrid1.DisplayLayout.GroupByBox.BandLabelBorderStyle = UIElementBorderStyle.Solid
Me.UltraGrid1.DisplayLayout.GroupByBox.BandLabelAppearance.BackColor = Color.DarkBlue
Me.UltraGrid1.DisplayLayout.GroupByBox.BandLabelAppearance.ForeColor = Color.LightYellow
' Configure the way button connectors look
Me.UltraGrid1.DisplayLayout.GroupByBox.ButtonConnectorStyle = UIElementBorderStyle.Dotted
Me.UltraGrid1.DisplayLayout.GroupByBox.ButtonConnectorColor = Color.Maroon
End Sub