tabcontrol.vb

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

    End Function

    Friend Sub ResetTabCloseButtonBackHighColor()
        m_TabCloseButtonBackHighColor = Me.defaultTabCloseButtonBackHighColor
    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 the tab close button.")> _
    Public Property TabCloseButtonBackLowColor() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBackLowColor
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBackLowColor = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBackLowColor() As Boolean
        Return m_TabCloseButtonBackLowColor <> Me.defaultTabCloseButtonBackLowColor
    End Function

    Friend Sub ResetTabCloseButtonBackLowColor()
        m_TabCloseButtonBackLowColor = Me.defaultTabCloseButtonBackLowColor
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the border color for the tab close button.")> _
    Public Property TabCloseButtonBorderColor() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBorderColor
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBorderColor = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBorderColor() As Boolean
        Return m_TabCloseButtonBorderColor <> Me.defaultTabCloseButtonBorderColor
    End Function

    Friend Sub ResetTabCloseButtonBorderColor()
        m_TabCloseButtonBorderColor = Me.defaultTabCloseButtonBorderColor
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the fore color for the tab close button.")> _
    Public Property TabCloseButtonForeColor() As System.Drawing.Color
        Get
            Return m_TabCloseButtonForeColor
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonForeColor = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonForeColor() As Boolean
        Return m_TabCloseButtonForeColor <> Me.defaultTabCloseButtonForeColor
    End Function

    Friend Sub ResetTabCloseButtonForeColor()
        m_TabCloseButtonForeColor = Me.defaultTabCloseButtonForeColor
    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 disabled tab close button.")> _
    Public Property TabCloseButtonBackHighColorDisabled() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBackHighColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBackHighColorDisabled = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBackHighColorDisabled() As Boolean
        Return m_TabCloseButtonBackHighColorDisabled <> Me.defaultTabCloseButtonBackHighColorDisabled
    End Function

    Friend Sub ResetTabCloseButtonBackHighColorDisabled()
        m_TabCloseButtonBackHighColorDisabled = Me.defaultTabCloseButtonBackHighColorDisabled
    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 the disabled tab close button.")> _
    Public Property TabCloseButtonBackLowColorDisabled() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBackLowColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBackLowColorDisabled = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBackLowColorDisabled() As Boolean
        Return m_TabCloseButtonBackLowColorDisabled <> Me.defaultTabCloseButtonBackLowColorDisabled
    End Function

    Friend Sub ResetTabCloseButtonBackLowColorDisabled()
        m_TabCloseButtonBackLowColorDisabled = Me.defaultTabCloseButtonBackLowColorDisabled
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the border color for the disabled tab close button.")> _
    Public Property TabCloseButtonBorderColorDisabled() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBorderColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBorderColorDisabled = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBorderColorDisabled() As Boolean
        Return m_TabCloseButtonBorderColorDisabled <> Me.defaultTabCloseButtonBorderColorDisabled
    End Function

    Friend Sub ResetTabCloseButtonBorderColorDisabled()
        m_TabCloseButtonBorderColorDisabled = Me.defaultTabCloseButtonBorderColorDisabled
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the disabled fore color for the tab close button.")> _
    Public Property TabCloseButtonForeColorDisabled() As System.Drawing.Color
        Get
            Return m_TabCloseButtonForeColorDisabled
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonForeColorDisabled = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonForeColorDisabled() As Boolean
        Return m_TabCloseButtonForeColorDisabled <> Me.defaultTabCloseButtonForeColorDisabled
    End Function

    Friend Sub ResetTabCloseButtonForeColorDisabled()
        m_TabCloseButtonForeColorDisabled = Me.defaultTabCloseButtonForeColorDisabled
    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 Hot tab close button.")> _
    Public Property TabCloseButtonBackHighColorHot() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBackHighColorHot
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBackHighColorHot = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBackHighColorHot() As Boolean
        Return m_TabCloseButtonBackHighColorHot <> Me.defaultTabCloseButtonBackHighColorHot
    End Function

    Friend Sub ResetTabCloseButtonBackHighColorHot()
        m_TabCloseButtonBackHighColorHot = Me.defaultTabCloseButtonBackHighColorHot
    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 the Hot tab close button.")> _
    Public Property TabCloseButtonBackLowColorHot() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBackLowColorHot
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBackLowColorHot = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBackLowColorHot() As Boolean
        Return m_TabCloseButtonBackLowColorHot <> Me.defaultTabCloseButtonBackLowColorHot
    End Function

    Friend Sub ResetTabCloseButtonBackLowColorHot()
        m_TabCloseButtonBackLowColorHot = Me.defaultTabCloseButtonBackLowColorHot
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the border color for the Hot tab close button.")> _
    Public Property TabCloseButtonBorderColorHot() As System.Drawing.Color
        Get
            Return m_TabCloseButtonBorderColorHot
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonBorderColorHot = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonBorderColorHot() As Boolean
        Return m_TabCloseButtonBorderColorHot <> Me.defaultTabCloseButtonBorderColorHot
    End Function

    Friend Sub ResetTabCloseButtonBorderColorHot()
        m_TabCloseButtonBorderColorHot = Me.defaultTabCloseButtonBorderColorHot
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the System.Drawing.Color structure that represents the Hot fore color for the tab close button.")> _
    Public Property TabCloseButtonForeColorHot() As System.Drawing.Color
        Get
            Return m_TabCloseButtonForeColorHot
        End Get
        Set(ByVal Value As Color)
            m_TabCloseButtonForeColorHot = Value
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonForeColorHot() As Boolean
        Return m_TabCloseButtonForeColorHot <> Me.defaultTabCloseButtonForeColorHot
    End Function

    Friend Sub ResetTabCloseButtonForeColorHot()
        m_TabCloseButtonForeColorHot = Me.defaultTabCloseButtonForeColorHot
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the tab close button image.")> _
    Public Property TabCloseButtonImage() As Image
        Get
            Return m_TabCloseButtonImage
        End Get
        Set(ByVal value As Image)
            m_TabCloseButtonImage = value
            For Each t As TabPage In TabPages
                t.CloseButtonImage = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Appearance"), Description("Gets or sets the tab close button image in hot state.")> _
    Public Property TabCloseButtonImageHot() As Image
        Get
            Return m_TabCloseButtonImageHot
        End Get
        Set(ByVal value As Image)
            m_TabCloseButtonImageHot = value
            For Each t As TabPage In TabPages
                t.CloseButtonImageHot = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Appearance"), Description("Gets or sets the tab close button image in disabled state.")> _
    Public Property TabCloseButtonImageDisabled() As Image
        Get
            Return m_TabCloseButtonImageDisabled
        End Get
        Set(ByVal value As Image)
            m_TabCloseButtonImageDisabled = value
            For Each t As TabPage In TabPages
                t.CloseButtonImageDisabled = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(True), Description("Gets or sets whether the tab close button is visble or not.")> _
    Public Property TabCloseButtonVisible() As Boolean
        Get
            Return m_TabCloseButtonVisible
        End Get
        Set(ByVal value As Boolean)
            m_TabCloseButtonVisible = value
            For Each t As TabPage In TabPages
                t.CloseButtonVisible = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Appearance"), Description("Gets or sets the size of the icon displayed at the tab.")> _
    Public Property TabIconSize() As Size
        Get
            Return m_TabIconSize
        End Get
        Set(ByVal value As Size)
            m_TabIconSize = value
            For Each t As TabPage In TabPages
                t.IconSize = value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeTabIconSize() As Boolean
        Return m_TabIconSize <> Me.defaultTabIconSize
    End Function

    Friend Sub ResetTabIconSize()
        m_TabIconSize = Me.defaultTabIconSize
    End Sub

    <Browsable(True), Category("Appearance"), Description("Gets or sets the size of the close button displayed at the tab.")> _
    Public Property TabCloseButtonSize() As Size
        Get
            Return m_TabCloseButtonSize
        End Get
        Set(ByVal value As Size)
            m_TabCloseButtonSize = value
            For Each t As TabPage In TabPages
                t.CloseButtonSize = value
            Next
        End Set
    End Property

    Friend Function ShouldSerializeTabCloseButtonSize() As Boolean
        Return m_TabCloseButtonSize <> Me.defaultTabCloseButtonSize
    End Function

    Friend Sub ResetTabCloseButtonSize()
        m_TabCloseButtonSize = Me.defaultTabCloseButtonSize
    End Sub

    <Browsable(True), Category("Appearance"), DefaultValue(Drawing2D.SmoothingMode.None), Description("Specifies whether smoothing (antialiasing) is applied to lines and curves and the edges of filled areas.")> _
    Public Property SmoothingMode() As Drawing2D.SmoothingMode
        Get
            Return m_TabSmoothingMode
        End Get
        Set(ByVal value As Drawing2D.SmoothingMode)
            m_TabSmoothingMode = value
            For Each t As TabPage In TabPages
                t.SmoothingMode = value
            Next
        End Set
    End Property

    <Browsable(True), Category("Layout"), DefaultValue(5), Description("Gets or sets the amount of space on the right side of the tab.")> _
    Public Property TabPadRight() As Integer
        Get
            Return m_TabPadRight
        End Get
        Set(ByVal value As Integer)
            m_TabPadRight = value