专家坐堂-怎样调整记录窗口中文字的字体和大小Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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