主题：[求助]菜单字体颜色

设置颜色这样写

Dim obj = CType(BaseMainForm,C1Ribbon.C1RibbonForm).Ribbon
For Each btn As object In obj.tabs("Other").groups("Execute").items
    btn.ForeColorInner = color.blue
Next
obj.tabs("Other").groups("Execute").items("Command").ForeColorInner = color.red

设置下拉按钮颜色？参考

Dim obj = CType(BaseMainForm,C1Ribbon.C1RibbonForm).Ribbon
For Each btn As object In obj.tabs("Other").groups("Tools").items("Tools").items
    For Each o As object In btn.Gettype.getproperties
        output.show(o.name)
    Next
    'btn.ForeColorDisabled = color.red
    'btn.ForeColorInner = color.red
    btn.ForeColorMenuItem = color.blue
    'btn.ForeColorOuter = color.red
    'btn.ForeColorTextBox = color.red
Next