[SOLVED] Keyboard Tips not working for std menu

Hi,

I'm using a ribbon bar to give me the nice Big O system button, but then I'm using standard ButtonPopup's to build the rest of the menu. (This is to keep a "corporate" feel about it).

Does anyone know why the ShowKeyboardTips does not work for these menus?



Cheers


My Example Code
Private Sub MDIForm_Load()
    Dim objRibbon       As RibbonBar
    Dim objPopup        As CommandBarPopup

    CommandBarsGlobalSettings.App = App

'    SkinFramework1.LoadSkin App.Path & "\Styles\" & "Vista.cjstyles", "NORMALBLACK2.INI"
'    SkinFramework1.ApplyOptions = xtpSkinApplyMetrics Or xtpSkinApplyFrame Or xtpSkinApplyColors Or xtpSkinApplyMenus   '#100404 DB added xtpSkinApplyMenus
'    SkinFramework1.ApplyWindow Me.hWnd
'    CommandBarsGlobalSettings.Office2007Images = App.Path & "\Styles\" & "Office2007Black.dll"

    CommandBars1.EnableActions
    CommandBars1.VisualTheme = xtpThemeOffice2007

    With CommandBars1.Options
        .KeyboardCuesShow = xtpKeyboardCuesShowAlways
        .KeyboardCuesUse = xtpKeyboardCuesUseNone
        .ShowKeyboardTips = True
    End With

    ' Create ribbon bar
    Set objRibbon = CommandBars1.AddRibbonBar("RB")
    objRibbon.EnableDocking xtpFlagStretched
    objRibbon.EnableFrameTheme
    
    ' Quick Access
    objRibbon.QuickAccessControls.Add XtremeCommandBars.XTPControlType.xtpControlButton, 11, "Purchase"
    objRibbon.QuickAccessControls.Add XtremeCommandBars.XTPControlType.xtpControlButton, 12, "Parameters"

    ' Big O system button
    Set objPopup = objRibbon.AddSystemButton
    objPopup.CommandBar.Controls.Add xtpControlButton, 1, "AAA"
    objPopup.CommandBar.Controls.Add xtpControlButton, 2, "BBB"
    objPopup.CommandBar.Controls.Add xtpControlButton, 3, "CCC"
    objPopup.CommandBar.Controls.Add xtpControlButton, 4, "DDD"

    ' Hire Menu
    Set objPopup = objRibbon.Controls.Add(xtpControlButtonPopup, 100, "Hire")
    objPopup.CommandBar.Controls.Add xtpControlButton, 101, "New Estimate"
    objPopup.CommandBar.Controls.Add xtpControlButton, 102, "New Hire"
    objPopup.CommandBar.Controls.Add xtpControlButton, 103, "Amend Hire"
    objPopup.CommandBar.Controls.Add xtpControlButton, 104, "Off Hire"

    ' Sale Menu
    Set objPopup = objRibbon.Controls.Add(xtpControlButtonPopup, 200, "Sale")
    objPopup.CommandBar.Controls.Add xtpControlButton, 201, "New Sale"
    objPopup.CommandBar.Controls.Add xtpControlButton, 202, "Amend Sale"

    ' Invoice Menu
    Set objPopup = objRibbon.Controls.Add(xtpControlButtonPopup, 300, "Invoice")
    objPopup.CommandBar.Controls.Add xtpControlButton, 301, "New Invoice"
    objPopup.CommandBar.Controls.Add xtpControlButton, 302, "Amend Invoice"

End Sub

Hi jpbro,

That doesn't work.
Ideally I want CodeJock to work out what tips to show (See screen shots).



(Generated by using "CommandBars1.ActiveMenuBar.Controls.Add" with the CommandBars1.Options.ShowKeyboardTips on.)

This is a really great bit of functionality! I don't need to maintain & in my menus, I don't need to worry about the translations for different languages and where to put the &.

I want the quick access toolbar and the Big O system button but then just simple drop down menus as this has a very nice corporate feel about it. But I also want the "ShowKeyboardTips"   

Any ideas?

Hi jpbro,

Thanks for your help.

CJ have added this for the next release.