以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  CollapseAll 怎么用？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55730)
--  作者：coolbhb
--  发布时间：2014/8/22 9:44:00
--  CollapseAll 怎么用？
做一个按钮 单击收起所有目录树。CollapseAll 该怎么写
--  作者：Bin
--  发布时间：2014/8/22 9:46:00
--  
http://www.foxtable.com/help/topics/1849.htm

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TreeView Then \'判断控件是否是文本框
        Dim t As WinForm.TreeView = c \'使用特定类型的变量引用控件
        t.CollapseAll()
    End If
Next
--  作者：有点甜
--  发布时间：2014/8/22 9:47:00
--  

 呃，直接写

 

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
tr.CollapseAll
--  作者：Bin
--  发布时间：2014/8/22 9:50:00
--  
楼主要收起所有目录树,看2楼