以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]筛选树的字体大小如何设置？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117001)
--  作者：seal51
--  发布时间：2018/4/4 8:57:00
--  [求助]筛选树的字体大小如何设置？
筛选树的字体大小如何设置？
--  作者：有点甜
--  发布时间：2018/4/4 10:11:00
--  

参考代码

 

Tables("表A").OpenFilterTree("第一列|第二列")
For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "筛选树" Then
            Dim tr = b.controls(0).controls(0)
            tr.font = new font("宋体", 15)       
        End If
    Next
Next
--  作者：seal51
--  发布时间：2018/4/4 10:15:00
--  
谢谢！加到那个事件里呢？
--  作者：有点甜
--  发布时间：2018/4/4 10:35:00
--  
AfterOpenProject事件。
--  作者：seal51
--  发布时间：2018/4/4 10:59:00
--  
如何去掉筛选树上面关闭的符号， 也就是说关闭手动关闭筛选树
--  作者：有点甜
--  发布时间：2018/4/4 11:08:00
--  
Tables("表A").OpenFilterTree("第一列|第二列")
For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "筛选树" Then
            b.CanCloseTabs = False
            b.CanAutoHide = False
            Dim tr = b.controls(0).controls(0)
            tr.font = new font("宋体", 15)
        End If
    Next
Next
--  作者：seal51
--  发布时间：2018/6/2 9:21:00
--  
上面的代码只能控制固定的筛选条件的字体大小， 但是根据不同的情况，筛选条件不同， 这个时候如何控制生成筛选树字体的大小呢？
--  作者：有点蓝
--  发布时间：2018/6/2 9:45:00
--  
无法控制。如果想做细致的控制，请使用treeview控件自行做筛选树：http://www.foxtable.com/webhelp/scr/0883.htm