你是说,上方的菜单的空白问题?
方法一:
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