Imports Infragistics.Windows.DockManager
Private Sub InitializeDockManager(ByVal dockManager As XamDockManager)
Dim splitFloatDock As New SplitPane()
XamDockManager.SetInitialLocation(splitFloatDock, InitialPaneLocation.DockableFloating)
' the FloatingSize and FloatingLocation attached properties can be used
' to get/set the position of a floating split pane - whether it is dockable
' or not.
'
XamDockManager.SetFloatingLocation(splitFloatDock, New Point(100, 100))
XamDockManager.SetFloatingSize(splitFloatDock, New Size(350, 200))
Dim cpInFloatDock As New ContentPane()
cpInFloatDock.Header = "Floating Dockable"
cpInFloatDock.Content = New RichTextBox()
splitFloatDock.Panes.Add(cpInFloatDock)
Dim splitFloatOnly As New SplitPane()
XamDockManager.SetInitialLocation(splitFloatOnly, InitialPaneLocation.FloatingOnly)
XamDockManager.SetFloatingLocation(splitFloatOnly, New Point(500, 400))
XamDockManager.SetFloatingSize(splitFloatOnly, New Size(350, 200))
Dim cpInFloatOnly As New ContentPane()
cpInFloatOnly.Header = "Floating Only"
cpInFloatOnly.Content = New RichTextBox()
splitFloatOnly.Panes.Add(cpInFloatOnly)
dockManager.Panes.Add(splitFloatDock)
dockManager.Panes.Add(splitFloatOnly)
End Sub