'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)
加好友 
发短信
Post By：2018/8/3 18:09:00 [只看该作者]
