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