我遇到一个问题,我自己写了一个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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货