TabGroupPane コンストラクタ

Imports Infragistics.Windows.DockManager

Private Sub CreateTabGroupPane(ByVal dockManager As XamDockManager)
    Dim dockedSplit As New SplitPane()
    dockedSplit.SplitterOrientation = Orientation.Horizontal
    XamDockManager.SetInitialLocation(dockedSplit, InitialPaneLocation.DockedRight)

    ' A TabGroupPane can be hosted within a SplitPane 
    Dim tgpDocked As New TabGroupPane()

    Dim cpDockedTab1 As New ContentPane()
    cpDockedTab1.Header = "Solution Explorer"
    cpDockedTab1.Content = New TreeView()
    tgpDocked.Items.Add(cpDockedTab1)

    Dim cpDockedTab2 As New ContentPane()
    cpDockedTab2.Header = "Class View"
    cpDockedTab2.Content = New TreeView()
    tgpDocked.Items.Add(cpDockedTab2)
    dockedSplit.Panes.Add(tgpDocked)

    Dim cpRightBottom As New ContentPane()
    cpRightBottom.Header = "Properties"
    cpRightBottom.Content = New ListView()
    dockedSplit.Panes.Add(cpRightBottom)

    dockManager.Panes.Add(dockedSplit)

    Dim dch As New DocumentContentHost()
    Dim dchSplit As New SplitPane()

    ' TabGroupPane and SplitPane are the only element 
    ' types allowed within a SplitPane in the 
    ' DocumentContentHost 
    Dim tgpDch1 As New TabGroupPane()
    Dim tgpDchTab1 As New ContentPane()
    tgpDchTab1.Header = "File 1"
    tgpDchTab1.Content = New RichTextBox()
    tgpDch1.Items.Add(tgpDchTab1)
    dchSplit.Panes.Add(tgpDch1)

    Dim tgpDch2 As New TabGroupPane()
    Dim tgpDchTab2 As New ContentPane()
    tgpDchTab2.Header = "File 2"
    tgpDchTab2.Content = New RichTextBox()
    tgpDch2.Items.Add(tgpDchTab2)
    dchSplit.Panes.Add(tgpDch2)

    dch.Panes.Add(dchSplit)

    dockManager.Content = dch
End Sub