Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub button89_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button89.Click
' Modify some of the default Group settings specified at the control level. These
' GroupSettings apply to all Groups. We will then override the settings for a
' specific Group below.
Me.ultraExplorerBar1.GroupSettings.AllowEdit = DefaultableBoolean.False
Me.ultraExplorerBar1.GroupSettings.AllowDrag = DefaultableBoolean.False
Me.ultraExplorerBar1.GroupSettings.AllowItemDrop = DefaultableBoolean.False
Me.ultraExplorerBar1.GroupSettings.AllowItemUncheck = DefaultableBoolean.False
Me.ultraExplorerBar1.GroupSettings.BorderStyleItemArea = UIElementBorderStyle.None
Me.ultraExplorerBar1.GroupSettings.ContainerHeight = 100
Me.ultraExplorerBar1.GroupSettings.HeaderButtonStyle = UIElementButtonStyle.Button
Me.ultraExplorerBar1.GroupSettings.HeaderVisible = DefaultableBoolean.False
Me.ultraExplorerBar1.GroupSettings.HotTracking = DefaultableBoolean.False
Me.ultraExplorerBar1.GroupSettings.MaxLines = 5
Me.ultraExplorerBar1.GroupSettings.ShowToolTips = DefaultableBoolean.False
Me.ultraExplorerBar1.GroupSettings.Style = GroupStyle.SmallImages
Me.ultraExplorerBar1.GroupSettings.UseMnemonics = DefaultableBoolean.False
' Override the default Item settings set at the control level above for the
' items in the first Group.
If (Me.ultraExplorerBar1.Groups.Count > 0) Then
Me.ultraExplorerBar1.Groups(0).Settings.AllowEdit = DefaultableBoolean.True
Me.ultraExplorerBar1.Groups(0).Settings.AllowDrag = DefaultableBoolean.True
Me.ultraExplorerBar1.Groups(0).Settings.AllowItemDrop = DefaultableBoolean.True
Me.ultraExplorerBar1.Groups(0).Settings.AllowItemUncheck = DefaultableBoolean.True
Me.ultraExplorerBar1.Groups(0).Settings.BorderStyleItemArea = UIElementBorderStyle.Dashed
Me.ultraExplorerBar1.Groups(0).Settings.ContainerHeight = 200
Me.ultraExplorerBar1.Groups(0).Settings.HeaderButtonStyle = UIElementButtonStyle.WindowsXPCommandButton
Me.ultraExplorerBar1.Groups(0).Settings.HeaderVisible = DefaultableBoolean.True
Me.ultraExplorerBar1.Groups(0).Settings.HotTracking = DefaultableBoolean.True
Me.ultraExplorerBar1.Groups(0).Settings.MaxLines = 2
Me.ultraExplorerBar1.Groups(0).Settings.ShowToolTips = DefaultableBoolean.True
Me.ultraExplorerBar1.Groups(0).Settings.Style = GroupStyle.LargeImagesWithText
Me.ultraExplorerBar1.Groups(0).Settings.UseMnemonics = DefaultableBoolean.True
End If
End Sub