专家坐堂-指定字体Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  指定字体  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175680)

--  作者：18099761199
--  发布时间：2022/3/15 12:03:00
--  指定字体

\'\'\'
With CurrentTable
Dim fnt As New Font("微软雅黑",9)
StatusBar.Message3 = "当前用户: " & _UserBm & "-" & _username
StatusBar.Message1 = Date.now & " 联系电话:18099761199"
StatusBar.Message1.PadLeft(125," ") \' & "阿勒泰地区哈萨克医医院"

StatusBar.Message2=" ????? ???????? ????? ?????????? 阿勒泰地区哈萨克医医院"

End With

以上代码中需要指定一个字体“Kazakhsoft Asilya 常规”，求救代码中怎么加入？？

--  作者：18099761199
--  发布时间：2022/3/15 12:05:00
--

With CurrentTable
    StatusBar.Message3 = "当前用户: " & _UserBm & "-" & _username
StatusBar.Message1 = Date.now & " 联系电话:18099761199"
StatusBar.Message1.PadLeft(125," ") \' & "阿勒泰地区哈萨克医医院"

StatusBar.Message2=" ????? ???????? ????? ?????????? 阿勒泰地区哈萨克医医院"

End With

--  作者：有点蓝
--  发布时间：2022/3/15 12:13:00
--
这里无法指定字体。正常3个单引号是有效的，如果是代码编辑器还是无法显示也没有办法的