以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  菜单的字体可以改吗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104023)

--  作者:fubblyc
--  发布时间:2017/7/21 10:52:00
--  菜单的字体可以改吗
老师,
菜单的字体可以改吗。。
想改成 楷体。。。

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20170721105050.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/7/21 11:06:00
--  

可以

 

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.font = new font("楷体", 10)


--  作者:fubblyc
--  发布时间:2017/7/21 11:53:00
--  
太好了!!状态栏是不是也是可以,

Dim str1 As String = ""
Dim t As Table = CurrentTable

Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
StatusBar.Message3 = str1
Dim Str2 As String = "当前用户: " & _UserName
StatusBar.Message1 = Str2

Dim a As object = BaseMainForm.controls("C1Ribbon1")  是不是改这里?改成什么呢?
a.font = new font("楷体", 10)

--  作者:有点甜
--  发布时间:2017/7/21 12:10:00
--  
Dim a As object = BaseMainForm.controls("C1StatusBar1")
a.font = new font("楷体", 10)

--  作者:fubblyc
--  发布时间:2017/7/21 14:12:00
--  
谢谢甜老师!!
--  作者:zhy400137
--  发布时间:2017/7/21 14:15:00
--  
配置栏字体呢?
--  作者:有点甜
--  发布时间:2017/7/21 14:25:00
--  
以下是引用zhy400137在2017/7/21 14:15:00的发言:
配置栏字体呢?

 

不能单独设置配置栏字体的。