Imports Infragistics.Windows.DockManager
Private Sub InitializeDmWithDCH(ByVal dockManager As XamDockManager)
' The XamDockManager is a content control and as such
' can contain any content but you can use a
' DocumentContentHost to provide VS style tabbed
' documents which can participate in the dragging
' and pane navigator of the xamdockmanager
Dim dch As New DocumentContentHost()
Dim rootSplit As New SplitPane()
rootSplit.SplitterOrientation = Orientation.Vertical
Dim tgpRoot As New TabGroupPane()
Dim cpFile1 As New ContentPane()
cpFile1.Header = "File 1"
cpFile1.Content = New RichTextBox()
tgpRoot.Items.Add(cpFile1)
Dim cpFile2 As New ContentPane()
cpFile2.Header = "File 2"
cpFile2.Content = New RichTextBox()
tgpRoot.Items.Add(cpFile2)
rootSplit.Panes.Add(tgpRoot)
' You can nest SplitPanes within the DCH
' to create nested tab groups. This split
' will be to the right of the tab group
' defined above.
Dim nestedSplit As New SplitPane()
nestedSplit.SplitterOrientation = Orientation.Horizontal
Dim tgpNested1 As New TabGroupPane()
Dim cpFile3 As New ContentPane()
cpFile3.Header = "File 3"
cpFile3.Content = New RichTextBox()
tgpNested1.Items.Add(cpFile3)
nestedSplit.Panes.Add(tgpNested1)
Dim tgpNested2 As New TabGroupPane()
Dim cpFile4 As New ContentPane()
cpFile4.Header = "File 4"
cpFile4.Content = New RichTextBox()
tgpNested2.Items.Add(cpFile4)
nestedSplit.Panes.Add(tgpNested2)
rootSplit.Panes.Add(nestedSplit)
dch.Panes.Add(rootSplit)
dockManager.Content = dch
End Sub