<p style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;"><span style="font-weight:700;"><span style="font-size:16px;">CollapseAllNode方法</span></span></p>
<p style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;"><span style="line-height:1.78571;">这个方法收缩 </span><span style="font-weight:700;">TreeView </span><span style="line-height:1.78571;">控件的所有节点</span></p>
<p class="label" style="font-size:12px;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;">语法</p>
<span style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;"></span><p style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;"><span class="emp"><i>object</i></span>.<span style="font-weight:700;">CollapseAllNode</span></p>
<p style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;"><span class="emp"><i>object </i></span>所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。</p>
<p class="label" style="font-size:12px;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;">说明</p>
<span style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;"></span><p style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;"><span style="font-weight:700;">通过<span style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;font-weight:bold;">CollapseAllNode</span>的方法，可以收缩所有TreeView控件的节点，精简展示节点的内容</span></p>
<p style="color:#333333;font-family:'Helvetica Neue', Helvetica, Tahoma, Arial, sans-serif;">例，展开和收缩所有节点</p>
<pre class="prettyprint lang-vb">Private Sub CmdExpandAllNode_Click()
If Nz(Me.CmdExpandAllNode.Tag) = "" Then
TreeView0.ExpandAllNode
Me.CmdExpandAllNode.Tag = "1"
Me.CmdExpandAllNode.Caption = "收缩所有节点"
Else
'使用CollapseAllNode方法收缩所有节点
' TreeView0.CollapseAllNode
'也可以通过遍历所有节点来收缩
Dim oNode As Node
TreeView0.Echo False
For Each oNode In TreeView0.Nodes
oNode.Expanded = False
Next
TreeView0.Echo True
Me.CmdExpandAllNode.Tag = ""
Me.CmdExpandAllNode.Caption = "展开所有节点"
End If
End Sub</pre>
- Access树控件介绍
- 微软树控件的缺点
- 版本兼容出错
- 不支持64位的Office
- Access树控件的优点
- Access扩展控件库--树控件的创建和添加节点
- Access扩展控件库--树控件节点图标
- Access扩展控件库--树控件常用属性
- Appearance 属性（ActiveX 控件）
- BackColor 属性（ActiveX 控件）
- BackPicture 属性（ActiveX 控件）
- BorderStyle 属性（ActiveX 控件）
- Checkboxes 属性
- Container 属性（ActiveX 控件）
- DropHighlight 属性（ListView 和 TreeView 控件）
- EditBox 属性（ActiveX 控件）
- Enabled 属性（ActiveX 控件）
- Font 属性（ActiveX 控件）
- FullRowSelect 属性（ActiveX 控件）
- Height 属性（ActiveX 控件）
- Access扩展控件库--树控件常用方法
- AboutBox 方法
- AddImage 方法
- AddImageGroup 方法
- CollapseAllNode 方法
- Create 方法
- Echo 方法
- ExpandAllNode 方法
- GetVisibleCount 方法
- HitTest 方法（ListView 和 TreeView 控件）
- Move 方法
- Refresh 方法
- SetFocus 方法
- Access扩展控件库--树控件常用事件
- AfterLabelEdit 事件（ListView 和 TreeView 控件）
- BeforeLabelEdit 事件（ListView 和 TreeView 控件）
- Click 事件
- Collapse 事件（TreeView 控件）
- DblClick 事件
- Expand 事件（TreeView 控件）
- GotFocus 事件
- KeyDown 事件
- KeyPress 事件
- KeyUp 事件
- Access树控件注意问题
- Access树控件（treeview) 64位Office下出现横向滚动条不会自动定位的解决办法
- Access中国树控件 在win10电脑 节点行间距太小的解决办法
- 详细属性和事件