TabController控制項測試

下載及安裝參照:http://www.cnblogs.com/dragon/archive/2005/03/24/124771.html

測試：拖動標籤、雙擊關閉標籤

 '關閉按鈕觸發    Private Sub TabController_ClosePressed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabController.ClosePressed        MsgBox("ClosePressed--" & TabController.SelectedTab.Name.ToString)    End Sub    'Tab Drag and Drop    Dim TabDragging As Boolean    Private Sub TabController_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabController.MouseLeave        If TabDragging = True Then            'Debug.Print("stop drag")            TabDragging = False            Me.Cursor = Cursors.Default        End If    End Sub    Private Sub TabController_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabController.MouseMove        If e.Button = Windows.Forms.MouseButtons.Left Then            'Debug.Print("dragging")            TabDragging = True            Me.Cursor = Cursors.SizeWE        ElseIf e.Button = Windows.Forms.MouseButtons.None Then            If TabDragging = True Then                'Debug.Print("stop drag")                TabDragging = False                Me.Cursor = Cursors.Default            End If        End If    End Sub    Private Sub TabController_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabController.MouseUp        If e.Button = Windows.Forms.MouseButtons.Left Then            If TabDragging = True Then                Dim sourceTab As Crownwood.Magic.Controls.TabPage = TabController.SelectedTab                Dim targetTab As Crownwood.Magic.Controls.TabPage = TabController.TabPageFromPoint(e.Location)                Dim targetIndex As Integer = -1                For i = 0 To TabController.TabPages.Count - 1                    If TabController.TabPages(i) Is targetTab Then                        targetIndex = i                    End If                Next                If sourceTab IsNot targetTab And targetIndex > -1 Then                    TabController.TabPages.Remove(sourceTab)                    TabController.TabPages.Insert(targetIndex, sourceTab)                    TabController.SelectedTab = sourceTab                End If            End If        ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then            If TabDragging = False Then                '   Tabs.Action.CloseActiveTab()            End If        End If    End Sub    '雙擊標籤觸發    Public Sub TabController_DoubleClickTab(ByVal sender As Crownwood.Magic.Controls.TabControl, ByVal page As Crownwood.Magic.Controls.TabPage) Handles TabController.DoubleClickTab        MsgBox("DoubleClickTab--" & page.Name.ToString)    End Sub