Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock
Private Sub btnInitializeTreePane_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInitializeTreePane.Click
Me.InitializeDockedPane(Me.ultraDockManager1.PaneFromControl(Me.UltraTree1))
End Sub
Private Sub InitializeDockedPane(ByVal pane As DockableControlPane)
' Move the pane to a dock area by itself
pane.Dock(DockedSide.Left)
' Prevent it from being closed
pane.Settings.AllowClose = DefaultableBoolean.False
' Do not allow it to be docked or floated by a drag
pane.Settings.AllowDockBottom = DefaultableBoolean.False
pane.Settings.AllowDockLeft = DefaultableBoolean.False
pane.Settings.AllowDockRight = DefaultableBoolean.False
pane.Settings.AllowDockTop = DefaultableBoolean.False
pane.Settings.AllowFloating = DefaultableBoolean.False
' Do not allow it to toggle its docked state
pane.Settings.DoubleClickAction = PaneDoubleClickAction.None
' It cannot be minimed or maximized
pane.Settings.AllowMaximize = DefaultableBoolean.False
pane.Settings.AllowMinimize = DefaultableBoolean.False
' It cannot be pinned
pane.Settings.AllowPin = DefaultableBoolean.False
' Change the borderstyle around the contained control
pane.Settings.BorderStylePane = UIElementBorderStyle.Raised
' Put 3 pixels of padding around the contained control
pane.Settings.PaddingBottom = 3
pane.Settings.PaddingLeft = 3
pane.Settings.PaddingRight = 3
pane.Settings.PaddingTop = 3
' Show the caption
pane.Settings.ShowCaption = DefaultableBoolean.True
End Sub