Codejock Developer Community : MenuBarMDIMenus Item takes what?

MenuBarMDIMenus Item takes what? : I look forward to the fix, in...

Wed, 05 Sep 2007 14:54:56 +0000

Author: cradke
Subject: 7944
Posted: 05 September 2007 at 2:54pm

I look forward to the fix, in the mean time I have an acceptable work-around by getting the IEnumVARIANT interface...

inline IEnumVARIANT* GetNewEnum(IDispatch* pIDispatch)
{
    IUnknown* pUnk = NULL;
    _com_dispatch_method(pIDispatch, DISPID_NEWENUM, DISPATCH_PROPERTYGET, VT_UNKNOWN, (void*)&pUnk, NULL);
    return CComQIPtr(pUnk).Detach();
}

XtremeCommandBars::ICommandBar* GetMenuBarById(long MenuBarId)
{
    CComPtr pIMDIMenus = m_spCommandBars->GetActiveMenuBar()->GetMDIMenus();
    CComPtr pIEnum(GetNewEnum(pIMDIMenus));
    if(pIEnum)
    {
        long nCount = pIMDIMenus->GetCount();
        CComVariant* pVariants = new CComVariant[nCount];
        ULONG Fetched = 0;
        HRESULT hr = pIEnum->Next(nCount, pVariants, &Fetched);
        if(SUCCEEDED(hr))
        {
            for(long Index = 0; Index < nCount; Index++)
            {

MenuBarMDIMenus Item takes what? : Hello, Thanks, you are right....

Wed, 05 Sep 2007 14:34:22 +0000

Author: Oleg
Subject: 7944
Posted: 05 September 2007 at 2:34pm

Hello,

Thanks, you are right. Item propety doesn't work :( Fixed for 11.2 release.

MenuBarMDIMenus Item takes what? : What should be passed to the Item...

Wed, 05 Sep 2007 14:02:12 +0000

Author: cradke
Subject: 7944
Posted: 05 September 2007 at 2:02pm

What should be passed to the Item property of the MenuBarMDIMenus collection. Nothing seems to work. Using the CommandBars\VB\MDISample none of the following attempts work.

    Dim MDIMenus As MenuBarMDIMenus
    Set MDIMenus = CommandBars.ActiveMenuBar.MDIMenus
    Dim MDIMenu As MenuBarMDIMenu
    Set MDIMenu = MDIMenus.Add(100, "Document", "Document")

Set MDIMenu = MDIMenus.Add(101, "Image", "Image")

    Set MDIMenu = MDIMenus.Item(100)
    Set MDIMenu = MDIMenus.Item(1)
    Set MDIMenu = MDIMenus.Item(0)
    Set MDIMenu = MDIMenus.Item("Document")

In fact the following code never displays a message box

    Set MDIMenu = Nothing
    On Error Resume Next
    Dim Index As Long
    For Index = 0 To 65535
        Set MDIMenu = MDIMenus.Item(Index)
        If Not MDIMenu Is Nothing Then
            MsgBox MDIMenu.Caption + " " + CStr(Index)
        End If
    Next Index

The documentation says it should be the Id of the MDIMenu but the Id does not work. This in and of itself is strange since the other collections take the standard 1 based index. Using the Id makes it difficult to enumerate the list using the Item property since every part of the application must know in advance what the Id's are.

Chris Radke