类似于vs.net工具箱的菜单

界面预览

 

 

源码：

 

1 、form1中添加一个panel1，设置dock为left
2 、在panel1中依次添加Button1，Button2，Button3，Button4，Button5，每个Button的dock均设置为top
3 、在panel1中添加ListBox1，设置Dock为fill
4 、在代码部分添加以下部分
Private   Sub btnClick() Sub btnClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
        Dim ClickBtn As Button = CType(sender, Button)
        Dim TabIndex As Integer = ClickBtn.TabIndex

        If ClickBtn.Dock = DockStyle.Top Then
            For Each btn As Control In Panel1.Controls
                If btn.GetType.ToString.Equals("System.Windows.Forms.Button") Then
                    If btn.TabIndex > TabIndex Then btn.Dock = DockStyle.Bottom
                End If
            Next
        Else
            For Each btn As Control In Panel1.Controls
                If btn.GetType.ToString.Equals("System.Windows.Forms.Button") Then
                    If btn.TabIndex <= TabIndex Then btn.Dock = DockStyle.Top
                End If
            Next
        End If

        ListBox1.Items.Clear()
        For i As Integer = 0 To TabIndex
            ListBox1.Items.Add(String.Format("Control-{0}", i.ToString))
        Next
    End Sub

 

好了，试试看效果吧，呵呵！