-- 作者:有点甜
-- 发布时间:2017/11/6 14:39:00
--
selectTab事件
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 object = BaseMainForm.controls("C1Ribbon1") a.height = 50
|