While TreeView.Nodes(某个结点).Children > 0 TreeView.Nodes.Remove (TreeView.Nodes(某个结点).Child.Key) Wend
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
TreeView.Nodes.Remove (TreeView.Nodes(某个结点).Child.Key)
Wend
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
第2句还要做什么改变吗?运行出错 说无效关键字
Index = TreeView1.SelectedItem.IndexWhile TreeView1.Nodes(Index).Children > 0
TreeView1.Nodes.Remove (TreeView1.Nodes(Index).Child.Key)
Wend
你不说JAVA不行吗?怕别人说你傻,白痴吗?