可显示/隐藏左边控件的Splitter

可显示/隐藏左边控件的Splitter(1)

有些软件中的splitter中间有一个按钮，点击后可显示/隐藏左边的控件，如WPS就是这样。在.NET中也自定义了一个。

类代码：
Public Class mySplitter

    Public Shared Sub AddShowHideEvent(ByVal sl As Splitter)
        Dim lbl As New Label
        lbl.Text = "3"
        lbl.Font = New System.Drawing.Font("Marlett", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphiCSUnit.Point, CType(2, Byte))
        lbl.AutoSize = True
        lbl.Location = New Point(-3.5, sl.Height / 2 - lbl.Height)
        lbl.Cursor = Cursors.Hand
        lbl.ForeColor = Color.Red
        sl.Controls.Add(lbl)
        sl.Width = 3.5

        AddHandler lbl.Click, AddressOf lbl_Click
        AddHandler sl.Resize, AddressOf splitter_Resize

        Dim tt As New ToolTip
        tt.SetToolTip(lbl, "隐藏左边的的控件")
        lbl.Tag = tt
    End Sub

    Private Shared Sub lbl_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim lbl As Label = CType(sender, Label)
        Dim targetctrl As Control
        Dim sl As Splitter = CType(lbl.Parent, Splitter)
        Dim pctrl As Control = sl.Parent

        For Each temp As Control In pctrl.Controls