Office2007White.dll

I did this. The problem is, that you have to generate a complite ribbon bar with theme blue (standard) and then set so theme White.

Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6

I don't think is a bug of Codejock release.

I think is a virtual-bug of VB6 in Windows7, because VB6 wasn't designed for Windows7 environment.

VB6 is very old tool...

gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

McKloony wrote:

OK, here is a small sample:

uploads/20100308_093442__Testproject.rar

OK, now I have see.

As you already know, to work correctly, VB6 IDE need to activate the "Disable dektop composition" option (from Resources Explorer, right-clic in VB6.EXE -> Property -> Compatibility )

In fact, the project running from IDE work good.

If you disable this option for your EXE also, then EXE work fine.

I don't know if there is other way to solve the problem.

Probably this is a question for Codejock Support.

gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

Next changed style, you call below methods?

CommandBars.PaintManager.RefreshMetrics
CommandBars.RecalcLayout

I use this my function, to switch between styles:

Private Sub SetStyle(ByVal ControlID As Long)

    Dim CommandBarsGlobalSettings As XtremeCommandBars.CommandBarsGlobalSettings
    Set CommandBarsGlobalSettings = New XtremeCommandBars.CommandBarsGlobalSettings

    Select Case ControlID
    Case ID_STYLE_BLUE
        CommandBarsGlobalSettings.Office2007Images = App.Path & "\Office2007Blue.dll"
    Case ID_STYLE_BLACK
        CommandBarsGlobalSettings.Office2007Images = App.Path & "\Office2007Black.dll"
    Case ID_STYLE_WHITE
        CommandBarsGlobalSettings.Office2007Images = App.Path & "\Office2007White.dll"
    End Select

    CommandBars.PaintManager.RefreshMetrics
    CommandBars.RecalcLayout

End Sub

So I can change style in Execute method:

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    On Error Resume Next

    Select Case Control.Id

        Case ID_STYLE_BLUE, ID_STYLE_BLACK, ID_STYLE_WHITE
            SetStyle Control.Id

<...>

End Sub

So, I can set style in Load event:

SetStyle ID_STYLE_WHITE

All work fine.

gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

Yes, that's correct. If I switch from Office 2007 blue to white during runtime everything works fine. But if I want to s t a r t in Office 2007 white mode, it doesn't work under Windows 7

Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6

If I use Office2007Images = ...\Office2007White.dll in Windows XP everything is OK, but if I use it in Windows 7 the forecolor of the ribbon tabs is not shown correctly:

Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6