treeview下面有很多节点 如何快速删除？

[iwzw]

treeview下面有很多节点，用treeview.nodes.clear语句删除时，速度很慢。请问有什么办法快速删除treeview的节点？

[iget]

如果有根节点 就直接删除根节点 会快。别的俺也不知之道

[rainstormmaster]

就用treeview.nodes.clear

至于说速度很慢，倒是没感觉出来

[iwzw]

慢不慢请看：
Private Sub Command1_Click()
a = "口语1000句,电脑知识,每日一句,课程,其他,刻录机超频,商业通告,商务活动,大学英语,实用英语句子 , 情景会话, 成功英语, 我的网址, 新东方现代文背诵篇章, 新英语900句, 旅游英语, 日常工作, 时态例句 , 格言与幽默, 求职英语, 沛沛英语, 生意英语, 电话英语,疯狂英语, 社交英语, 英语900句, 词组, 谚语1500句,走遍美国,银行业务, 英语900句, 词组, 谚语1500句,走遍美国,银行业务"
b = Split(a, ",")
For i = 0 To UBound(b)
TreeView1.Nodes.Add , , "r" & i, b(i)
TreeView1.Nodes.Add "r" & i, tvwChild, ""
Next i
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
TreeView1.Nodes.Clear
TreeView1.Nodes.Add , , "r2002", "2002"
TreeView1.Nodes.Add , , "r2003", "2003"
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Command2.Enabled = False
Command1.Caption = "添加节点"
Command2.Caption = "删除节点"
End Sub

欢迎各位朋友测试，看看有何好办法提高速度？

[liaorui]

应该只有这个吧，还没有发现其它的方法

[subzero]

不慢阿

[AresChen]

listview、treeview、list等控件在删除或添加时慢的主要原因，并不是对这些操作处理的慢，你可以用API试一下逐条的删除一个listview中的数，用API或控件自身的方法，在速度并没有区别。
这些控件操作慢的主要原因是显示上的事，对于大量数据的listview、treeview等，你可以在操作之前，把控件的visiable设置为false，在试一下，效率成10倍的提升。

[iwzw]

我的机器是p41.7G的，感觉挺慢的，看来subzero(赘姆烂壳)老兄的配置要好了。

各位朋友测试一下啊！

[rainstormmaster]

Private Sub Command1_Click()
a = "口语1000句,电脑知识,每日一句,课程,其他,刻录机超频,商业通告,商务活动,大学英语,实用英语句子 , 情景会话, 成功英语, 我的网址, 新东方现代文背诵篇章, 新英语900句, 旅游英语, 日常工作, 时态例句 , 格言与幽默, 求职英语, 沛沛英语, 生意英语, 电话英语,疯狂英语, 社交英语, 英语900句, 词组, 谚语1500句,走遍美国,银行业务, 英语900句, 词组, 谚语1500句,走遍美国,银行业务"
b = Split(a, ",")
For i = 0 To UBound(b)
TreeView1.Nodes.Add , , "r" & i, b(i)
TreeView1.Nodes.Add "r" & i, tvwChild, ""
Next i
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
TreeView1.Visible = False
TreeView1.Nodes.Clear

TreeView1.Nodes.Add , , "r2002", "2002"
TreeView1.Nodes.Add , , "r2003", "2003"
TreeView1.Visible = True
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Command2.Enabled = False
Command1.Caption = "添加节点"
Command2.Caption = "删除节点"
End Sub

[iwzw]

感谢AresChen(AresChen) ，解决。

[subzero]

我的也不过是p4 2.4啊！
感觉是瞬间完成的啊！