以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于筛选树铺展与收缩  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77380)
--  作者：script
--  发布时间：2015/11/17 14:01:00
--  [求助]关于筛选树铺展与收缩
老师  关于筛选树的 铺展 和 收缩 能不能用按钮控制 
          我想做个菜单按钮来控制筛选树的铺展和收缩
--  作者：大红袍
--  发布时间：2015/11/17 14:09:00
--  

只有主窗口可以，看看

 

下载信息  [文件大小：580.0 KB  下载次数：8]
图片点击可在新窗口打开查看点击浏览该文件:加入筛选树、加载树.table
--  作者：大红袍
--  发布时间：2015/11/17 14:09:00
--  

建议你还是自己做筛选树

 

http://www.foxtable.com/help/topics/0917.htm

 
--  作者：script
--  发布时间：2015/11/17 14:16:00
--  
 额  就是加载树的  auto hide  那个也不能用代码控制么 
 
图片点击可在新窗口打开查看此主题相关图片如下：1.bmp
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/11/17 14:50:00
--  

参考

 

\'**********************  这里只针对主窗体类型
LockBaseMainForm   \'锁屏

Dim tb As Table = e.Form.Controls("Table1").Table
tb.OpenFilterTree
Dim sc As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
For Each a As OBJECT In e.Form.panel.Parent.controls
   
    For Each b As OBJECT In a.controls
        If b.Tostring Like "Foxtable.O  OoOO0*" Then   
            If B.text = "筛选树" Then
                a.Dock = System.Windows.Forms.DockStyle.Fill
                b.CanCloseTabs = False
                b.CanAutoHide = False
                sc.Panel1.Collapsed = False
                sc.Panel1.basecontrol.Controls.add(b)
            End If
        End If
    Next
   
   
Next
UnLockBaseMainForm  \'解锁