Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock
Private Sub ultraDockManager1_BeforeDockChange(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinDock.BeforeDockChangeEventArgs) Handles ultraDockManager1.BeforeDockChange
' The BeforeDockChange is invoked as a pane is dragged
' to allow you to determine whether a drop location is
' considered a valid drop point. Setting Cancel to
' true will indicate to the dock manager that the drop
' location is not valid. When this is done, the cursor
' is changed to the no cursor to indicate this to the user.
' If the mouse is released at that point, the drag is cancelled.
'
' Only allow sliding group items to be repositioned
' within the parent
If (e.ChangeType <> DockChangeType.SiblingPaneReposition AndAlso _
Not e.Pane.Parent Is Nothing AndAlso _
e.Pane.Parent.ChildPaneStyle = ChildPaneStyle.SlidingGroup) Then
e.Cancel = True
End If
' Any floating combination is allowed so just
' exit
If (e.NewDockedLocation = DockedLocation.Floating) Then
Return
End If
' Do not allow panes to be grouped together
If (e.ChangeType = DockChangeType.NewGroup OrElse _
e.ChangeType = DockChangeType.NewSiblingPane) Then
e.Cancel = True
End If
' Do not allow any new docking areas to be created
' on the form - only floating docking areas
If (e.ChangeType = DockChangeType.NewDockArea AndAlso _
e.NewDockedLocation <> DockedLocation.Floating) Then
e.Cancel = True
End If
End Sub