方法一：
Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
a.VisualStyle = 0
a.RibbonStyle.ColorSet(C1.Win.C1Ribbon.StyleColor.TabBackground) = Color.Bisque
a.RibbonStyle.ColorSet(C1.Win.C1Ribbon.StyleColor.FormBackground) = Color.LightSkyBlue
a.RibbonStyle.ConstSet(C1.Win.C1Ribbon.StyleConst.ContentAreaHeight) = 0
方法二：
Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
a.height = 55
加好友 
发短信
Post By：2018/12/5 9:18:00 [只看该作者]
