Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabbedMdi
Private Sub MoveToNewGroup()
' get the tab associated with the active form
Dim activeTab As MdiTab = Me.ultraTabbedMdiManager1.ActiveTab
' if there isn't one or the form is being closed or hidden,
' skip it
If activeTab Is Nothing Or Not activeTab.IsFormVisible Then
Return
End If
' Create a new tab group at the end and move the
' active tab to it. The following statements will
' perform the same action. The overloads that
' accept an MdiTabGroupPosition can be used to have
' the new group created at the beginning or before/after
' the current tab group.
'
'Me.ultraTabbedMdiManager1.MoveToNewGroup(activeTab, MdiTabGroupPosition.Last)
'Me.ultraTabbedMdiManager1.MoveToNewGroup(activeTab)
'activeTab.MoveToNewGroup(MdiTabGroupPosition.Last)
If Me.ultraTabbedMdiManager1.CanCreateNewGroup Then
activeTab.MoveToNewGroup()
End If
End Sub
Private Sub MoveToNextGroup()
' get the tab associated with the active form
Dim activeTab As MdiTab = Me.ultraTabbedMdiManager1.ActiveTab
' if there isn't one or the form is being closed or hidden,
' skip it
If activeTab Is Nothing Or Not activeTab.IsFormVisible Then
Return
End If
' Move the currently active tab to the next group.
' The following statement performs the same action.
'
'Me.ultraTabbedMdiManager1.MoveToGroup(activeTab, MdiTabGroupPosition.Next)
activeTab.MoveToGroup(MdiTabGroupPosition.Next)
End Sub
Private Sub MoveToPreviousGroup()
' get the tab associated with the active form
Dim activeTab As MdiTab = Me.ultraTabbedMdiManager1.ActiveTab
' if there isn't one or the form is being closed or hidden,
' skip it
If activeTab Is Nothing Or Not activeTab.IsFormVisible Then
Return
End If
' Move the currently active tab to the next group.
' The following statement performs the same action.
'
'Me.ultraTabbedMdiManager1.MoveToGroup(activeTab, MdiTabGroupPosition.Previous)
activeTab.MoveToGroup(MdiTabGroupPosition.Previous)
End Sub