学步园

在Form上的左侧是一个TreeView，右侧是一个Panel，Panel的大小是要
显示的窗体的大小，显示窗体是在AfterSelect后触发的。

Code:

 Private Sub TreeView1_AfterSelect()Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim c As Control
        Dim frm As Form
        For Each c In Panel1.Controls
            c.Dispose()
        Next

        Select Case TreeView1.SelectedNode.Text
            Case "Permission Set", "User&UserGroup"
                Dim cFrm As New frmUserSet
                cFrm.cCN = cCN
                cFrm.ResourceCN = ResourceCN
                frm = cFrm.FindForm
            Case "Set UserGroup"
                Dim cFrm As New GroupSet
                Cfrm.ConnStr = ResourceCN
                cFrm.cCN = cCN
                frm = CFrm.FindForm
            Case "GroupPermission"
                            
                            ..
                '更多的窗体在这里
        End Select
        StatusBar1.Panels.Item(2).Text = "Node: " & TreeView1.SelectedNode.Text
        If frm Is Nothing Then Exit Sub
        frm.TopLevel = False
        frm.Parent = Panel1
        frm.Show()

    End Sub

文章相关代码下载:http://files.cnblogs.com/rippleyong/TreeView.rar