以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样调整记录窗口中文字的字体和大小  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141428)

--  作者:feehoo
--  发布时间:2019/9/28 22:32:00
--  怎样调整记录窗口中文字的字体和大小
老师好:
     请问怎样调整记录窗口中的文字的字体和大小?默认字体很小,看着费劲

--  作者:有点蓝
--  发布时间:2019/9/29 9:03:00
--  
要使用代码处理,比如表A的记录窗口

For Each a As OBJECT In Tables("表A").grid.parent.controls
    For Each b As OBJECT In a.controls
        output.show(b.text)
        If b.text = "表A" Then
            b.controls(0).controls(0).font = new font("宋体",15)
            b.controls(0).controls(0).AutoSizeRows
        End If
    Next
Next


--  作者:feehoo
--  发布时间:2019/9/30 19:45:00
--  
请问老师,以上代码放在哪里呢?
--  作者:有点蓝
--  发布时间:2019/9/30 20:02:00
--  
可以放到afteropenproject事件

Tables("表A").OpenRecordGrid
For Each a As OBJECT In Tables("表A").grid.parent.controls
    For Each b As OBJECT In a.controls
        output.show(b.text)
        If b.text = "表A" Then
            b.controls(0).controls(0).font = new font("宋体",15)
            b.controls(0).controls(0).AutoSizeRows
        End If
    Next
Next