Imports Infragistics.Windows.DockManager
Private Sub InitializeDmPinning(ByVal dockManager As XamDockManager)
' ContentPanes that are docked to an edge of
' the XamDockManager can be unpinned. When
' unpinned they are represented by a tab in
' the unpinned tab area along the corresponding
' edge of the dockmanager.
' The IsPinned property is used to indicate
' the pinned state. ContentPanes are pinned
' by default.
Dim cpPinned As New ContentPane()
cpPinned.Header = "Starts Pinned"
Dim cpUnpinned As New ContentPane()
cpUnpinned.Header = "Starts Unpinned"
cpUnpinned.IsPinned = False
Dim splitBottom As New SplitPane()
splitBottom.SplitterOrientation = Orientation.Vertical
XamDockManager.SetInitialLocation(splitBottom, InitialPaneLocation.DockedBottom)
splitBottom.Panes.Add(cpPinned)
splitBottom.Panes.Add(cpUnpinned)
dockManager.Panes.Add(splitBottom)
' AllowPinning is used to indicate whether
' the end user may change the IsPinned state.
Dim cpPinnedAlways As New ContentPane()
cpPinnedAlways.Header = "Always Pinned"
cpPinnedAlways.AllowPinning = False
Dim cpUnpinnedAlways As New ContentPane()
cpUnpinnedAlways.Header = "Always Unpinned"
cpUnpinnedAlways.AllowPinning = False
cpUnpinnedAlways.IsPinned = False
Dim splitLeft As New SplitPane()
splitLeft.SplitterOrientation = Orientation.Horizontal
XamDockManager.SetInitialLocation(splitLeft, InitialPaneLocation.DockedLeft)
splitLeft.Panes.Add(cpPinnedAlways)
splitLeft.Panes.Add(cpUnpinnedAlways)
dockManager.Panes.Add(splitLeft)
End Sub