以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  statusbar显示图标功能是怎么实现的？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122881)
--  作者：whwsyscom
--  发布时间：2018/8/3 15:28:00
--  statusbar显示图标功能是怎么实现的？
展示程序里有statusbar中显示图标，这个功能是怎么实现的？
--  作者：有点甜
--  发布时间：2018/8/3 18:09:00
--  
\'Dim fnt As New Font("微软雅黑",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
\'SB.LeftPaneItems("Message1").Font=fnt
\'SB.LeftPaneItems("Message1").ForeColorOuter = Color.Red
Dim obj As new c1.win.c1ribbon.ribbonButton("test")
\'For Each o As object In obj.Gettype.getproperties
\'    output.show(o.name)
\'Next
obj.SmallImage = getimage("d:\\test.ico")
SB.LeftPaneItems.add(obj)
--  作者：whwsyscom
--  发布时间：2018/8/12 20:54:00
--  
谢谢！还有一个问题 LeftpanelItems对应的是 Message1,RightpanelItems对应的是 Message3,Message2对应的是什么？
--  作者：有点甜
--  发布时间：2018/8/12 23:09:00
--  

message2也是LeftpanelItems下的一个控件

 

Dim fnt As New Font("微软雅黑",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.LeftPaneItems("Message2").Font=fnt
SB.LeftPaneItems("Message2").ForeColorOuter = Color.Red
--  作者：whwsyscom
--  发布时间：2018/8/13 8:01:00
--  
谢谢