- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Arial Narrow 字体无法正常使用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192128)
-- 发布时间：2024/5/30 12:55:00
-- Arial Narrow 字体无法正常使用
老师帮我看一下这个问题, 谢谢!
我需要在表单中显示8#的Arial Narrow字体, 以便尽量适用屏幕宽度增加列的显示, 但无论怎样设置,都只能定义到 常规体(下图), 表为窗体中的副本表, 我设置的语句如下:
Tables("AssemblyTracker_AssemblyTrackPlan").Font = New Font("Arial Narrow", 8, FontStyle.Regular)
运行 的结果如下:
而我需要的是下图状态(这是我通过菜单上的字体设置完成的)
我通过下面的语句将设置好的字体信息读出结果:
Output.Show(CurrentTable.Font.Name & ";" & CurrentTable.Font.Size & ";" & CurrentTable.Font.Style)
Arial Narrow;8.25;0
再次更改 Tables("AssemblyTracker_AssemblyTrackPlan").Font = New Font("Arial Narrow", 8.25, 0)
仍然无效.
-- 发布时间：2024/5/30 12:59:00
--
我的指令是放在 窗口的Afterload 事件中的.
-- 发布时间：2024/5/30 13:44:00
--
表控件是怎么绑定表的？
-- 发布时间：2024/5/30 13:53:00
--
按Normal, 绑定了AssemblyTrackPlan
-- 发布时间：2024/5/30 13:56:00
--
我测试没有问题哦，做个例子发上来看看
-- 发布时间：2024/5/30 14:17:00
--
这样试试呢：
Tables("AssemblyTracker_AssemblyTrackPlan").Font = New Font("Arial Narrow", 8.25, FontStyle.Regular)
字体的类型为Font，定义一个字体的语法为：
Dim 变量名 As New Font(Name, Size, Style)
Name: 字体名称。
Size: 字体大小，单位为磅。
Style: 可选参数，字体样式，FontStyle型枚举。
下面是FontStyle型枚举的可选值：
Bold： 加粗。
Italic： 倾斜。
Regular： 普通。
Strikeout： 中间有直线通过。
Underline： 带下划线。
[此贴子已经被作者于2024/5/30 14:17:47编辑过]