如何在treeview中删除一个节点的所有子节点 而不删除其本身？

Question

如上所问 ，谢谢

Answer 1

While TreeView.Nodes(某个结点).Children > 0
      TreeView.Nodes.Remove (TreeView.Nodes(某个结点).Child.Key)
Wend

Answer 2

Private Sub Delete(Optional DeleteAll As Boolean = False)
    Dim tepNode As Node, tepNode2 As Node
    
    If tvwTest.SelectedItem.Children > 0 Then
        Set tepNode = tvwTest.SelectedItem.Child
        Do
            If tepNode.Next Is Nothing Then
                tvwTest.Nodes.Remove tepNode.Index
                Exit Do
            Else
                Set tepNode2 = tepNode.Next
                tvwTest.Nodes.Remove tepNode.Index
                Set tepNode = tepNode2
            End If
        Loop
    End If
    If DeleteAll Then
        tvwTest.Nodes.Remove tvwTest.SelectedItem.Index    '可选的删除自身
    End If
    
    Set tepNode = Nothing
    Set tepNode2 = NothingEnd Sub

Answer 3

删除选择的Node下面所有的子级或者删除自身(可选)

Answer 4

对不起，刚才java学VB，有些地方还是不懂，
第2句还要做什么改变吗？运行出错 说无效关键字
Index = TreeView1.SelectedItem.IndexWhile TreeView1.Nodes(Index).Children > 0
      TreeView1.Nodes.Remove (TreeView1.Nodes(Index).Child.Key)
Wend

Answer 5

回复： xudoudou123(许豆豆) 为什么要说“才java学VB，有些地方还是不懂”
你不说JAVA不行吗？怕别人说你傻，白痴吗？