Foxtable(狐表)用户栏目专家坐堂 → Arial Narrow 字体无法正常使用


  共有1595人关注过本帖树形打印复制链接

主题:Arial Narrow 字体无法正常使用

帅哥哟,离线,有人找我吗?
creastzh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:297 积分:2187 威望:0 精华:0 注册:2023/1/11 7:15:00
Arial Narrow 字体无法正常使用  发帖心情 Post By: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)
仍然无效.



 回到顶部
帅哥哟,离线,有人找我吗?
creastzh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:297 积分:2187 威望:0 精华:0 注册:2023/1/11 7:15:00
  发帖心情 Post By:2024/5/30 12:59:00 [只看该作者]

我的指令是放在 窗口的Afterload 事件中的.

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110560 积分:562690 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 13:44:00 [只看该作者]

表控件是怎么绑定表的?

 回到顶部
帅哥哟,离线,有人找我吗?
creastzh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:297 积分:2187 威望:0 精华:0 注册:2023/1/11 7:15:00
  发帖心情 Post By:2024/5/30 13:53:00 [只看该作者]

按Normal, 绑定了AssemblyTrackPlan
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110560 积分:562690 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 13:56:00 [只看该作者]

我测试没有问题哦,做个例子发上来看看

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By: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编辑过]

 回到顶部