How to: Create a DockPanel

 

The following example creates and uses an instance of DockPanel by using code. The example shows you how to partition space by creating five Rectangle elements and positioning (docking) them inside a parent DockPanel. If you retain the default setting, the final rectangle fills all the remaining unallocated space.

            WindowTitle = "DockPanel Sample"
            'Create a DockPanel as the root Panel
            Dim myDP As New DockPanel()
            ' Add the first Rectangle to the DockPanel
            Dim rect1 As New Rectangle
            rect1.Stroke = Brushes.Black
            rect1.Fill = Brushes.SkyBlue
            rect1.Height = 25
            DockPanel.SetDock(rect1, Dock.Top)
            myDP.Children.Add(rect1)

            ' Add the second Rectangle to the DockPanel
            Dim rect2 As New Rectangle
            rect2.Stroke = Brushes.Black
            rect2.Fill = Brushes.SkyBlue
            rect2.Height = 25
            DockPanel.SetDock(rect2, Dock.Top)
            myDP.Children.Add(rect2)

            ' Add the third Rectangle to the DockPanel
            Dim rect3 As New Rectangle
            rect3.Stroke = Brushes.Black
            rect3.Fill = Brushes.Khaki
            rect3.Height = 25
            DockPanel.SetDock(rect3, Dock.Bottom)
            myDP.Children.Add(rect3)

            ' Add the fourth Rectangle to the DockPanel
            Dim rect4 As New Rectangle
            rect4.Stroke = Brushes.Black
            rect4.Fill = Brushes.PaleGreen
            rect4.Width = 200
            rect4.VerticalAlignment = VerticalAlignment.Stretch
            DockPanel.SetDock(rect4, Dock.Left)
            myDP.Children.Add(rect4)

            ' Add the fourth Rectangle to the DockPanel
            Dim rect5 As New Rectangle
            rect5.Stroke = Brushes.Black
            rect5.Fill = Brushes.White
            myDP.Children.Add(rect5)
            Me.Content = myDP

DockPanel
Dock
Panels Overview

Show: