如何将treeview控件的条目全部展开,和全部收起?

howto123 2004-11-22 08:43:55
如何将treeview控件的条目全部展开,和全部收起?
...全文
354 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxcc 2004-11-22
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim nodex As Node
For Each nodex In TreeView1.Nodes
nodex.Expanded = True
Next
End Sub

Private Sub Command2_Click()
Dim nodex As Node
For Each nodex In TreeView1.Nodes
nodex.Expanded = False
Next
End Sub
daisy8675 2004-11-22
  • 打赏
  • 举报
回复
Expanded属性,如果指定某个节点的话,用它的关键字就OK

参考下MSDN,会学到很多东西的
tztz520 2004-11-22
  • 打赏
  • 举报
回复
Private Sub Command1_Click()'全部开
Dim i As Long

For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next i
End Sub

Private Sub Command2_Click()'全部关
Dim i As Long

For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = False
Next i
End Sub

1,451

社区成员

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

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