🔥码云GVP开源项目 12k star Uniapp+ElementUI 功能强大 支持多语言、二开方便! 广告
<p><strong><span style="font-size:16px;">ExpandAllNode方法</span></strong></p> <p><span style="line-height:1.78571;">这个方法展开&nbsp;</span><b>TreeView </b><span style="line-height:1.78571;">控件的所有节点</span></p> <p><span></span></p> <p class="label"><b>语法</b></p> <p><span class="emp"><i>object</i></span>.<b>ExpandAllNode</b></p> <p><span class="emp"><i>object </i></span>所在处代表一个<span><span><span>对象表达式</span></span></span>,其值是<span>“</span>应用于<span>”</span>列表中的一个对象。<span></span></p> <p class="label"><b>说明</b></p> <p><b>通过ExpandAllNode的方法,可以展开和收缩所有TreeView控件的节点,快读显示节点的内容</b></p> <p>例,展开和收缩所有节点</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> <p><br /> </p>