以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  改变记录窗口的字体大小  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117524)

--  作者:malavazos
--  发布时间:2018/4/13 22:50:00
--  改变记录窗口的字体大小
请问如何增加记录窗口字体的大小?
--  作者:有点蓝
--  发布时间:2018/4/13 23:06:00
--  
需要使用代码,按钮代码

For Each dt As DataTable In DataTables
    For Each a As OBJECT In Tables(dt.name).grid.parent.controls
        For Each b As OBJECT In a.controls
            output.show(b.text)
            If b.text = dt.name Then
                \'msgbox(b.text)
                b.font = new font("宋体",15)
                Dim d = b.controls(0).controls(0)
                d.AutoSizeRows
                d.AutoSizeCols
            End If
        Next
    Next
Next

建议使用停靠窗口的记录控件替代记录窗口