我遇到一个问题,我自己写了一个RIBIION界面,用CODEJOCK控件做的,然后又加了一个GRIDEXB控件。但是两个看起来不合。颜色始终不搭配。大家看看有什么办法。在CODEJOCK里控件有什和办法可以实现。我的FORM_LOAD是这样写的。
Private Sub Form_Load()    CommandBarsGlobalSettings.App = App
    
    SkinFramework.LoadSkin App.Path & "\Styles\Vista.cjstyles", "NormalBlack2.ini"
    SkinFramework.ApplyWindow Me.hwnd
    Me.CommandBars.RecalcLayout
    
    GridEX1.DatabaseName = ConAcc
    GridEX1.RecordSource = "SELECT *  FROM [EpullDB].[dbo].[ME_FeederPMHistory]"
    GridEX1.Refresh
    GridEX1.Rebind
    
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", Me.Left)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", Me.Top)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", Me.Width)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", Me.Height)
      
      
    'Loads an xcb file created by the designer
    CommandBars.LoadDesignerBars App.Path & "\FeederSystem.xcb"
    
    CreateActions
    AddThemesBar
    
    Me.Caption = App.Title & " Ver: " & App.Major & "." & App.Minor & "." & App.Revision
    Set StatusBar = CommandBars.StatusBar
    Dim Pane As StatusBarPane    StatusBar.Visible = True    Set Pane = StatusBar.AddPane(0)
    Pane.Style = SBPS_STRETCH Or SBPS_NOBORDERS
    Pane.Text = "Ready"
    Pane.Width = 0 ' Autro Size    Set Pane = StatusBar.AddPane(1)
    Pane.Text = "User:" & NTuserID
    Pane.Width = 100
    
    
    StatusBar.AddPane ID_INDICATOR_CAPS
    StatusBar.AddPane ID_INDICATOR_NUM
    StatusBar.AddPane ID_INDICATOR_SCRL
   ' CommandBars.AddRibbonBar MnuUsers
    CommandBars.EnableCustomization True
    
    
    bSerializeControls = True
    bSaveOnlyCustomized = False
    bLoadSilent = False
    bSaveOriginalControls = True
    bSerializeLayout = True
    bSerializeOptions = True
    bSerializeImages = True
    bSerializeDesignerControls = False
    
    'Builds state options that specify how and what to save\load in the XML files
    buildStateOptions
    RibbonBar.EnableFrameTheme
    'Uncomment to load layout from registry
    'CommandBars.LoadCommandBars "Codejock Software ActiveX Demos", App.Title, "Layout2"
    
    CommandBars.FindControl(, ID_THEME_STYLEBLUE2010, , True).Execute
    
End Sub