以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  状态栏字体颜色？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78460)
--  作者：hdffzxf
--  发布时间：2015/12/9 15:55:00
--  状态栏字体颜色？
Dim fnt As New Font("微软雅黑",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.LeftPaneItems("Message1").Font=fnt
状态栏可以设置字体及字号，字体颜色怎么设置呢？
--  作者：逛逛
--  发布时间：2015/12/9 16:09:00
--  
SB.LeftPaneItems("Message1").ForeColorOuter = Color.red
--  作者：大红袍
--  发布时间：2015/12/9 16:15:00
--  

红色代码获取所有属性

 

Dim fnt As New Font("微软雅黑",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.LeftPaneItems("Message1").Font=fnt
For Each o As object In SB.LeftPaneItems("Message1").Gettype.getproperties
    output.show(o.name)
Next
SB.LeftPaneItems("Message1").ForeColorOuter = Color.Red
--  作者：hdffzxf
--  发布时间：2015/12/9 16:36:00
--  
获取所有属性，太强了！！！大红袍老师是大隐隐于市呀！
--  作者：hdffzxf
--  发布时间：2015/12/9 22:46:00
--  
奇怪,状态栏的信息设置后,并且用了Refresh刷新,但是马上不显示状态栏信息,在对鼠标选了表格区域后才显示(应该是执行了表格的区域求和),这有个什么样的开关呢?
--  作者：大红袍
--  发布时间：2015/12/9 22:51:00
--  
是不是你的字符太多，导致显示位置不够导致换行了？
--  作者：hdffzxf
--  发布时间：2015/12/10 12:09:00
--  
嗯，确实是这个原因导致！
另外，Message3怎么设置？用如下代码报错：
Dim fnt As New Font("微软雅黑",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.LeftPaneItems("Message3").Font=fnt


SB.RightPaneItems("？？？").Font=fnt  是这样？
但这个里面的具体对象名不知道！
[此贴子已经被作者于2015/12/10 12:16:12编辑过]
--  作者：大红袍
--  发布时间：2015/12/10 12:17:00
--  

Dim fnt As New Font("微软雅黑",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.RightPaneItems("Message3").Font=fnt