以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问treeview 可指定打开时显示几层吗?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104789)

--  作者:tennis
--  发布时间:2017/8/5 6:31:00
--  请问treeview 可指定打开时显示几层吗?
treeview显示 有打开与收起,可指定打开几层以下皆收起吗?代码如何写? 3Q!!
[此贴子已经被作者于2017/8/5 6:31:46编辑过]

--  作者:有点蓝
--  发布时间:2017/8/5 8:57:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each n As WinForm.TreeNode In trv.Nodes
    n.Expand
    For Each n1 As WinForm.TreeNode In n.Nodes
        n.Expand
    Next
Next


Dim lv As Integer = 0
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each n As WinForm.TreeNode In trv.AllNodes
    If n.Level <= lv
        n.Expand
    End If
Next

还可以使用递归实现吗,自己思考一下


--  作者:tennis
--  发布时间:2017/8/5 11:26:00
--  
3Q!!