共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：Arial Narrow 字体无法正常使用
1楼
creastzh 发表于：2024/5/30 12:55:00老师帮我看一下这个问题, 谢谢!
我需要在表单中显示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)
仍然无效.
2楼
creastzh 发表于：2024/5/30 12:59:00我的指令是放在 窗口的Afterload 事件中的.
3楼
有点蓝 发表于：2024/5/30 13:44:00表控件是怎么绑定表的？
4楼
creastzh 发表于：2024/5/30 13:53:00按Normal, 绑定了AssemblyTrackPlan
5楼
有点蓝 发表于：2024/5/30 13:56:00我测试没有问题哦，做个例子发上来看看
6楼
cd_tdh 发表于：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编辑过]
共6 条记录, 每页显示 10 条, 页签:
[1]