以文本方式查看主题

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

--  作者:ayiken
--  发布时间:2016/4/28 11:29:00
--  民族文字字体
我在项目属性 Afteropenproject事件 写了如下代码
StatusBar.Message3 = "系统设计:阿XX·莫力XX 180xxxx1199,13xxxx20181" & "????????? : ????? ???????? ???  "
其中哈萨克文字显示异常,我想加“kazakhsoft Asilya", 8.5”哈萨克文字体的话,代码怎么写?

--  作者:大红袍
--  发布时间:2016/4/28 11:31:00
--  

试试这样

 

http://www.foxtable.com/help/topics/1273.htm

 


--  作者:ayiken
--  发布时间:2016/4/28 11:32:00
--  

\'\'\'

我在项目属性 Afteropenproject事件 写了如下代码
StatusBar.Message3 = "系统设计:阿XX·莫力XX 180xxxx1199,13xxxx20181" & "????????? : ????? ???????? ???  "
其中哈萨克文字显示异常,我想加“kazakhsoft Asilya", 8.5”哈萨克文字体的话,代码怎么写?


--  作者:大红袍
--  发布时间:2016/4/28 11:34:00
--  
看2楼。
--  作者:ayiken
--  发布时间:2016/4/28 11:52:00
--  

我写这样代码,报错,帮我修改一下,谢谢!

StatusBar.Message3 = "系统设计:阿XX·莫力XX 180xxxx1199,13xxxx20181" & "????????? : ????? ???????? ??? "
BaseMainform.Controls("?????").Font = New Font("KazakhSoft Asilya",9)


--  作者:大红袍
--  发布时间:2016/4/28 11:55:00
--  

这样写

 

Dim fnt As New Font("KazakhSoft Asilya",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.RightPaneItems("Message3").Font=fnt