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

iwzw 2003-10-18 09:12:44
treeview下面有很多节点,用treeview.nodes.clear语句删除时,速度很慢。请问有什么办法快速删除treeview的节点?
...全文
203 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
subzero 2003-10-19
  • 打赏
  • 举报
回复
我的也不过是p4 2.4啊!
感觉是瞬间完成的啊!
iwzw 2003-10-19
  • 打赏
  • 举报
回复
感谢AresChen(AresChen) ,解决。
rainstormmaster 2003-10-19
  • 打赏
  • 举报
回复
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 2003-10-19
  • 打赏
  • 举报
回复
我的机器是p41.7G的,感觉挺慢的,看来subzero(赘姆烂壳)老兄的配置要好了。

各位朋友测试一下啊!
AresChen 2003-10-19
  • 打赏
  • 举报
回复
listview、treeview、list等控件在删除或添加时慢的主要原因,并不是对这些操作处理的慢,你可以用API试一下逐条的删除一个listview中的数,用API或控件自身的方法,在速度并没有区别。
这些控件操作慢的主要原因是显示上的事,对于大量数据的listview、treeview等,你可以在操作之前,把控件的visiable设置为false,在试一下,效率成10倍的提升。
subzero 2003-10-19
  • 打赏
  • 举报
回复
不慢阿
liaorui 2003-10-19
  • 打赏
  • 举报
回复
应该只有这个吧,还没有发现其它的方法
iwzw 2003-10-19
  • 打赏
  • 举报
回复
慢不慢请看:
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

欢迎各位朋友测试,看看有何好办法提高速度?
rainstormmaster 2003-10-18
  • 打赏
  • 举报
回复
就用treeview.nodes.clear

至于说速度很慢,倒是没感觉出来
iget 2003-10-18
  • 打赏
  • 举报
回复
如果有根节点 就直接删除根节点 会快。别的俺也不知之道

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧