tabcontrol.vb

VB.NET的Web浏览器IE7的克隆选项卡式浏览器 描述：这是一个例子写的vb.net浏览器使用的。 NET Framework 2.0 （ Visual Studio 2005中） 。这是一个

            For Each t As TabPage In TabPages
                t.PadRight = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(5), Description("Gets or sets the amount of space on the left side of the tab.")> _
    Public Property TabPadLeft() As Integer
        Get
            Return m_TabPadLeft
        End Get
        Set(ByVal value As Integer)
            m_TabPadLeft = value
            For Each t As TabPage In TabPages
                t.PadLeft = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(3), Description("Gets or sets the amount of space between the tabs.")> _
    Public Property TabOffset() As Integer
        Get
            Return m_TabOffset
        End Get
        Set(ByVal value As Integer)
            m_TabOffset = value
            ArrangeItems()
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(28), Description("Gets or sets the height of the tab.")> _
    Public Property TabHeight() As Integer
        Get
            Return m_TabHeight
        End Get
        Set(ByVal value As Integer)
            If m_TabHeight <> value Then
                m_TabHeight = value
                pnlTabs.Height = m_TabHeight
                pnlTabs.Top = pnlTop.Height - pnlTabs.Height
                AdjustHeight()
                For Each t As TabPage In TabPages
                    t.Height = value
                Next
            End If
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(3), Description("Gets or sets the distance between the top of the control and the top of the tab.")> _
    Public Property TabTop() As Integer
        Get
            Return m_TabTop
        End Get
        Set(ByVal value As Integer)
            m_TabTop = value
            AdjustHeight()
        End Set
    End Property

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the starting color of the Background linear gradient.")> _
    Public Property TabBackHighColor() As System.Drawing.Color
        Get
            Return m_TabBackHighColor
        End Get
        Set(ByVal Value As Color)
            m_TabBackHighColor = Value
            For Each t As TabPage In TabPages
                t.BackHighColor = Value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeTabBackHighColor() As Boolean
        Return m_TabBackHighColor <> Me.defaultTabBackHighColor
    End Function

    Friend Sub ResetTabBackHighColor()
        m_TabBackHighColor = Me.defaultTabBackHighColor
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the ending color of the Background linear gradient.")> _
    Public Property TabBackLowColor() As Color
        Get
            Return m_TabBackLowColor
        End Get
        Set(ByVal Value As Color)
            m_TabBackLowColor = Value
            For Each t As TabPage In TabPages
                t.BackLowColor = Value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeTabBackLowColor() As Boolean
        Return m_TabBackLowColor <> Me.defaultTabBackLowColor
    End Function

    Friend Sub ResetTabBackLowColor()
        m_TabBackLowColor = Me.defaultTabBackLowColor
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the starting color of the Background linear gradient for a non selected tab.")> _
        Public Property TabBackHighColorDisabled() As System.Drawing.Color
        Get
            Return m_TabBackHighColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_TabBackHighColorDisabled = Value
            For Each t As TabPage In TabPages
                t.BackHighColorDisabled = Value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeTabBackHighColorDisabled() As Boolean
        Return m_TabBackHighColorDisabled <> Me.defaultTabBackHighColorDisabled
    End Function

    Friend Sub ResetTabBackHighColorDisabled()
        m_TabBackHighColorDisabled = Me.defaultTabBackHighColorDisabled
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the ending color of the Background linear gradient for a non selected tab.")> _
    Public Property TabBackLowColorDisabled() As Color
        Get
            Return m_TabBackLowColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_TabBackLowColorDisabled = Value
            For Each t As TabPage In TabPages
                t.BackLowColorDisabled = Value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeTabBackLowColorDisabled() As Boolean
        Return m_TabBackLowColorDisabled <> Me.defaultTabBackLowColorDisabled
    End Function

    Friend Sub ResetTabBackLowColorDisabled()
        m_TabBackLowColorDisabled = Me.defaultTabBackLowColorDisabled
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the border color of the tab when not selected.")> _
    Public Property BorderColorDisabled() As Color
        Get
            Return m_BorderColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_BorderColorDisabled = Value
            For Each t As TabPage In TabPages
                t.BorderColorDisabled = Value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeBorderColorDisabled() As Boolean
        Return m_BorderColorDisabled <> Me.defaultBorderColorDisabled
    End Function

    Friend Sub ResetBorderColorDisabled()
        m_BorderColorDisabled = Me.defaultBorderColorDisabled
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the fore color of the tab when not selected.")> _
    Public Property ForeColorDisabled() As Color
        Get
            Return m_ForeColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_ForeColorDisabled = Value
            For Each t As TabPage In TabPages
                t.ForeColorDisabled = Value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeForeColorDisabled() As Boolean
        Return m_ForeColorDisabled <> Me.defaultForeColorDisabled
    End Function

    Friend Sub ResetForeColorDisabled()
        m_ForeColorDisabled = Me.defaultForeColorDisabled
    End Sub

    <Browsable(True), Category("Layout"), DefaultValue(100), Description("Gets or sets the minimum width for the tab.")> _
    Public Property TabMinimumWidth() As Integer
        Get
            Return m_tabMinimumWidth
        End Get
        Set(ByVal value As Integer)
            m_tabMinimumWidth = value
            For Each t As TabPage In TabPages
                t.MinimumWidth = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(200), Description("Gets or sets the maximum width for the tab.")> _
    Public Property TabMaximumWidth() As Integer
        Get
            Return m_TabMaximumWidth
        End Get
        Set(ByVal value As Integer)
            m_TabMaximumWidth = value
            For Each t As TabPage In TabPages
                t.MaximumWidth = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Appearance"), DefaultValue(True), Description("Gets or sets whether the font on the selected tab is displayed in bold.")> _
    Public Property FontBoldOnSelect() As Boolean
        Get
            Return m_FontBoldOnSelect
        End Get
        Set(ByVal value As Boolean)
            m_FontBoldOnSelect = value
            For Each t As TabPage In TabPages
                t.FontBoldOnSelect = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Behavior"), DefaultValue(True), Description("Gets or sets a value indicating whether the control's tabs change in appearance when the mouse passes over them.")> _
    Public Property HotTrack() As Boolean
        Get
            Return m_HotTrack
        End Get
        Set(ByVal value As Boolean)
            m_HotTrack = value
            For Each t As TabPage In TabPages
                t.HotTrack = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Behavior"), DefaultValue(True), Description("Gets or sets a value indicating whether the user can reorder tabs draging.")> _
    Public Property AllowTabReorder() As Boolean
        Get
            Return m_AllowTabReorder
        End Get
        Set(ByVal value As Boolean)
            m_AllowTabReorder = value
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(False), Description("Gets or sets a value indicating whether the close button is displayed or not.")> _
    Public Property CloseButtonVisible() As Boolean
        Get
            Return CloseButton.Visible
        End Get
        Set(ByVal value As Boolean)
            If CloseButton.Visible <> value Then
                CloseButton.Visible = value
                SetControlsSizeLocation()
            End If
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(True), Description("Gets or sets a value indicating whether the drop button is displayed or not.")> _
    Public Property DropButtonVisible() As Boolean
        Get
            Return DropButton.Visible
        End Get
        Set(ByVal value As Boolean)
            If DropButton.Visible <> value Then
                DropButton.Visible = value
                SetControlsSizeLocation()
            End If
        End Set
    End Property

    <Browsable(True), Category("Appearance"), DefaultValue(True), Description("Gets or sets a value indicating whether a double line separator is displayed at the top of the control.")> _
    Public Property TopSeparator() As Boolean
        Get
            Return m_TopSeparator
        End Get
        Set(ByVal value As Boolean)
            m_TopSeparator = value
            AdjustHeight()
        End Set
    End Property

    <Browsable(True), Category("Behavior"), DefaultValue(TabAlignment.Top), Description("Gets or sets the area of the control (for example, along the top) where the tabs are aligned.")> _
    Public Property Alignment() As TabAlignment
        Get
            Return m_Alignment
        End Get
        Set(ByVal value As TabAlignment)
            m_Alignment = value
            AdjustHeight()
            PositionButtons()
            For Each t As TabPage In TabPages
                t.Alignment = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Layout"), Description("Gets or sets the amount of space around the form on the control's tab pages.")> _
    Public Shadows Property Padding() As Padding
        Get
            Return pnlBottom.Padding
        End Get
        Set(ByVal value As Padding)
            pnlBottom.Padding = value
        End Set
    End Property

    Friend Function ShouldSerializePadding() As Boolean
        Return pnlBottom.Padding <> defaultPadding
    End Function

    Friend Sub ResetPadding()
        pnlBottom.Padding = defaultPadding
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the starting color of the Background linear gradient for the control button.")> _