学步园

    <System.Drawing.ToolboxBitmap("../../Resources/ToolPanel.ico")> _
    Friend Class ToolPanel
        Sub New()
            System.Windows.Forms.Application.EnableVisualStyles()

            ' This call is required by the Windows Form Designer.
            InitializeComponent()

            ' Add any initialization after the InitializeComponent() call.
            ToolPanelInitialize()
        End Sub

        Private Sub ToolPanelInitialize()
            VisualUiFont.Instance.SetFont(Me.ToolStripButtonClose)
        End Sub

        <Category("外观"), Description("与控件关联的文本"), Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    Public Overrides Property Text() As String
            Get
                Return Me.ToolStripLabelText.Text
            End Get
            Set(ByVal value As String)
                Me.ToolStripLabelText.Text = value
            End Set
        End Property

        <Category("外观"), Description("关闭按钮是否有效"), Browsable(True), DefaultValue(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
        Public Property CloseButtonEnabled() As Boolean
            Get
                Return Me.ToolStripButtonClose.Enabled
            End Get
            Set(ByVal value As Boolean)
                Me.ToolStripButtonClose.Enabled = value
            End Set
        End Property

        <Category("外观"), Description("关闭按钮是否可见"), Browsable(True), DefaultValue(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
        Public Property CloseButtonVisible() As Boolean
            Get
                Return Me.ToolStripButtonClose.Visible
            End Get
            Set(ByVal value As Boolean)
                Me.ToolStripButtonClose.Visible = value
            End Set
        End Property

        <Category("容器"), Description("中间面板"), Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
        Public ReadOnly Property ContentPanel() As ToolStripContentPanel
            Get
                Return Me.MainToolStripContainer.ContentPanel
            End Get
        End Property

        <Category("容器"), Description("菜单项"), Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
        Public ReadOnly Property MenuToolStrip() As ToolStrip
            Get
                Return Me.gMenuToolStrip
            End Get
        End Property

        Private Sub ToolPanel_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Leave
            Me.MainToolStripContainer.TopToolStripPanel.BackColor = System.Drawing.SystemColors.InactiveCaption
            Me.gTopToolStrip.BackColor = System.Drawing.SystemColors.InactiveCaption
            Me.ToolStripLabelText.BackColor = System.Drawing.SystemColors.InactiveCaption
            Me.ToolStripButtonClose.BackColor = System.Drawing.SystemColors.InactiveCaption
            Me.ToolStripLabelText.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
            Me.ToolStripButtonClose.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
        End Sub

        Private Sub ToolPanel_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Enter
            Me.MainToolStripContainer.TopToolStripPanel.BackColor = System.Drawing.SystemColors.ActiveCaption
            Me.gTopToolStrip.BackColor = System.Drawing.SystemColors.ActiveCaption
            Me.ToolStripLabelText.BackColor = System.Drawing.SystemColors.ActiveCaption
            Me.ToolStripButtonClose.BackColor = System.Drawing.SystemColors.ActiveCaption
            Me.ToolStripLabelText.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
            Me.ToolStripButtonClose.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        End Sub

        Private Sub ToolStripButtonClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonClose.Click
            Dim mPanel As Control
            mPanel = Me.Parent

            Do While mPanel.Parent IsNot Nothing AndAlso Not (TypeOf mPanel.Parent Is Form)
                mPanel = mPanel.Parent
            Loop

            If TypeOf mPanel Is Form Then
                mPanel = Me
            End If

            mPanel.Parent.Controls.Remove(mPanel)
            mPanel.Dispose()

        End Sub
    End Class

End Namespace

        'UserControl 重写 Dispose，以清理组件列表。
        <System.Diagnostics.DebuggerNonUserCode()> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
            MyBase.Dispose(disposing)
        End Sub

        'Windows 窗体设计器所必需的
        Private components As System.ComponentModel.IContainer

        '注意: 以下过程是 Windows 窗体设计器所必需的
        '可以使用 Windows 窗体设计器修改它。
        '不要使用代码编辑器修改它。
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Me.MainToolStripContainer = New System.Windows.Forms.ToolStripContainer
            Me.gTopToolStrip = New System.Windows.Forms.ToolStrip
            Me.ToolStripLabelText = New System.Windows.Forms.ToolStripLabel
            Me.ToolStripButtonClose = New System.Windows.Forms.ToolStripButton
            Me.gMenuToolStrip = New System.Windows.Forms.ToolStrip
            Me.MainToolStripContainer.TopToolStripPanel.SuspendLayout()
            Me.MainToolStripContainer.SuspendLayout()
            Me.gTopToolStrip.SuspendLayout()
            Me.SuspendLayout()
            '
            'MainToolStripContainer
            '
            Me.MainToolStripContainer.BottomToolStripPanelVisible = False
            '
            'MainToolStripContainer.ContentPanel
            '
            Me.MainToolStripContainer.ContentPanel.Size = New System.Drawing.Size(275, 129)
            Me.MainToolStripContainer.Dock = System.Windows.Forms.DockStyle.Fill
            Me.MainToolStripContainer.LeftToolStripPanelVisible = False
            Me.MainToolStripContainer.Location = New System.Drawing.Point(0, 0)
            Me.MainToolStripContainer.Name = "MainToolStripContainer"
            Me.MainToolStripContainer.RightToolStripPanelVisible = False
            Me.MainToolStripContainer.Size = New System.Drawing.Size(275, 179)
            Me.MainToolStripContainer.TabIndex = 0
            Me.MainToolStripContainer.Text = "ToolStripContainer1"
            '
            'MainToolStripContainer.TopToolStripPanel
            '
            Me.MainToolStripContainer.TopToolStripPanel.BackColor = System.Drawing.SystemColors.InactiveCaption
            Me.MainToolStripContainer.TopToolStripPanel.Controls.Add(Me.gTopToolStrip)
            Me.MainToolStripContainer.TopToolStripPanel.Controls.Add(Me.gMenuToolStrip)
            '
            'gTopToolStrip
            '
            Me.gTopToolStrip.AllowMerge = False
            Me.gTopToolStrip.BackColor = System.Drawing.SystemColors.InactiveCaption
            Me.gTopToolStrip.Dock = System.Windows.Forms.DockStyle.None
            Me.gTopToolStrip.Font = System.Drawing.SystemFonts.SmallCaptionFont
            Me.gTopToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
            Me.gTopToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabelText, Me.ToolStripButtonClose})
            Me.gTopToolStrip.Location = New System.Drawing.Point(0, 0)
            Me.gTopToolStrip.Name = "gTopToolStrip"
            Me.gTopToolStrip.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
            Me.gTopToolStrip.Size = New System.Drawing.Size(275, 25)
            Me.gTopToolStrip.Stretch = True
            Me.gTopToolStrip.TabIndex = 0
            '
            'ToolStripLabelText
            '
            Me.ToolStripLabelText.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
            Me.ToolStripLabelText.Name = "ToolStripLabelText"
            Me.ToolStripLabelText.Size = New System.Drawing.Size(29, 22)
            Me.ToolStripLabelText.Size = System.Windows.Forms.SystemInformation.ToolWindowCaptionButtonSize
            Me.ToolStripLabelText.Text = "名称"
            Me.ToolStripLabelText.Font = System.Drawing.SystemFonts.MenuFont
            '
            'ToolStripButtonClose
            '
            Me.ToolStripButtonClose.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
            Me.ToolStripButtonClose.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
            Me.ToolStripButtonClose.ImageTransparentColor = System.Drawing.Color.Magenta
            Me.ToolStripButtonClose.Name = "ToolStripButtonClose"
            Me.ToolStripButtonClose.Size = System.Windows.Forms.SystemInformation.ToolWindowCaptionButtonSize
            Me.ToolStripButtonClose.Text = "A"
            Me.ToolStripButtonClose.ToolTipText = "关闭"
            Me.ToolStripButtonClose.Font = System.Drawing.SystemFonts.MenuFont
            '
            'gMenuToolStrip
            '
            Me.gMenuToolStrip.AllowMerge = False
            Me.gMenuToolStrip.Dock = System.Windows.Forms.DockStyle.None
            Me.gMenuToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
            Me.gMenuToolStrip.Location = New System.Drawing.Point(0, 25)
            Me.gMenuToolStrip.Name = "gMenuToolStrip"
            Me.gMenuToolStrip.Size = New System.Drawing.Size(275, 25)
            Me.gMenuToolStrip.Stretch = True
            Me.gMenuToolStrip.TabIndex = 1
            '
            'ToolPanel
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.Controls.Add(Me.MainToolStripContainer)
            Me.Name = "ToolPanel"
            Me.Size = New System.Drawing.Size(275, 179)
            Me.MainToolStripContainer.TopToolStripPanel.ResumeLayout(False)
            Me.MainToolStripContainer.TopToolStripPanel.PerformLayout()
            Me.MainToolStripContainer.ResumeLayout(False)
            Me.MainToolStripContainer.PerformLayout()
            Me.gTopToolStrip.ResumeLayout(False)
            Me.gTopToolStrip.PerformLayout()
            Me.ResumeLayout(False)

        End Sub
        Private WithEvents ToolStripButtonClose As System.Windows.Forms.ToolStripButton
        Private WithEvents ToolStripLabelText As System.Windows.Forms.ToolStripLabel
        Private WithEvents gTopToolStrip As System.Windows.Forms.ToolStrip
        Protected Friend WithEvents gMenuToolStrip As System.Windows.Forms.ToolStrip
        Protected Friend WithEvents MainToolStripContainer As System.Windows.Forms.ToolStripContainer

    End Class
End Namespace