Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Update ribbon from Office 2007 style to 2010 style
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Update ribbon from Office 2007 style to 2010 style
 Post Reply Post Reply
Author
Message
  Topic Search Topic Search  Topic Options Topic Options
ou81aswell View Drop Down
Groupie
Groupie


Joined: 05 June 2009
Status: Offline
Points: 19 		Post Options Post Options   Thanks (0) Thanks(0)   Quote ou81aswell Quote  Post ReplyReply Direct Link To This Post Topic: Update ribbon from Office 2007 style to 2010 style
    Posted: 05 October 2010 at 7:55pm
I'm using ActiveX 13.2.1.
 
My ribbon, created with the CommandBar Designer has a round Office button a la Office 2007 which contains the classic File menu items.
 
How do I update it so that the Office button becomes the File menu a la Office 2010?
 
Thanks.
VB6, CJ 13.2.1, targeting XP, Vista and Win7
Back to Top
Dett View Drop Down
Newbie
Newbie


Joined: 28 December 2008
Status: Offline
Points: 9 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Dett Quote  Post ReplyReply Direct Link To This Post Posted: 06 October 2010 at 3:10pm
Hi, I'm working with 13.4.0 but I think in 13.2. it works also.
Try:

Private Sub setOffice2010Ribbon(paramCB As CommandBars)
    Dim ctrl            As CommandBarControl
    Dim rb              As RibbonBar

    With paramCB
        .EnableOffice2007Frame True
        .VisualTheme = xtpThemeRibbon
        Set rb = .ActiveMenuBar
        rb.EnableFrameTheme
    End With

    Set ctrl = rb.ControlSystemButton                        ' the round button
    ctrl.Style = xtpButtonCaption                            ' caption only, no picture
End Sub
Product: Xtreme SuitePro (ActiveX) version 16.3.1
Language: VB6 SP6
Platform: Windows 7 Enterprise 64-Bit
Back to Top
ou81aswell View Drop Down
Groupie
Groupie


Joined: 05 June 2009
Status: Offline
Points: 19 		Post Options Post Options   Thanks (0) Thanks(0)   Quote ou81aswell Quote  Post ReplyReply Direct Link To This Post Posted: 29 October 2010 at 7:33am
The following 3 lines of code, placed right after my initialization code did the trick. Thanks!
 
' RibbonBar was already setup by my init code
Dim ctrl As XtremeCommandBars.CommandBarControl
Set ctrl = RibbonBar.ControlSystemButton
ctrl.Style = xtpButtonCaption 'caption only, no picture
VB6, CJ 13.2.1, targeting XP, Vista and Win7
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.188 seconds.