23 灵活的treeview

我看了好多大侠的treeview代码，叹为观止，例如动态加载。

原来的treeview代码很简单，一个添加子节点，一个删除节点。

删除子节点的代码经过修改，如果是根节点，就不允许删除

添加了2个功能，一个是修改节点Txt，一个是添加根节点

但是dim str as new treenode 我大概没有搞好

每个btn click里必须写一次  肯请赐教

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As New TreeNode
        str.Text = InputBox("输入要添加的节点")
        TreeView1.SelectedNode.Nodes.Add(str) ‘添加子节点
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TreeView1.SelectedNode.Parent Is Nothing Then
            Exit Sub
        Else
            TreeView1.Nodes.Remove(TreeView1.SelectedNode) ’删除，如果是根节点，就不操作
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim str As New TreeNode
        Str.Text = InputBox("输入要更换的名字")
        TreeView1.SelectedNode.Text = Str.Text
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim str As New TreeNode
        Str.Text = InputBox("输入要添加的节点")  
        TreeView1.Nodes.Add(str)  ‘加根节点
       
    End Sub