Codejock Developer Community : Second Sub Menu Item xtpControlPopup Populate

Codejock Developer Community : Second Sub Menu Item xtpControlPopup Populate http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 10 Jun 2026 04:53:23 +0000 Tue, 22 Aug 2006 02:41:49 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=4841 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Second Sub Menu Item xtpControlPopup Populate : Thank you oleg, That works...]]> http://forum.codejock.com/forum_posts.asp?TID=4841&PID=15085&title=second-sub-menu-item-xtpcontrolpopup-populate#15085 Author: daveED
Subject: 4841
Posted: 22 August 2006 at 2:41am

Thank you oleg,

That works fine, no worries

]]> Tue, 22 Aug 2006 02:41:49 +0000 http://forum.codejock.com/forum_posts.asp?TID=4841&PID=15085&title=second-sub-menu-item-xtpcontrolpopup-populate#15085 <![CDATA[Second Sub Menu Item xtpControlPopup Populate : instead Set Control = .Add(xtpControlPopup,...]]> http://forum.codejock.com/forum_posts.asp?TID=4841&PID=15072&title=second-sub-menu-item-xtpcontrolpopup-populate#15072 Author: Oleg
Subject: 4841
Posted: 21 August 2006 at 2:57pm

instead

Set Control = .Add(xtpControlPopup, 0, "Extra Styles")

try

Set Control = Control.CommandBar.Controls.Add(xtpControlPopup, 0, "Extra Styles")

]]> Mon, 21 Aug 2006 14:57:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=4841&PID=15072&title=second-sub-menu-item-xtpcontrolpopup-populate#15072 <![CDATA[Second Sub Menu Item xtpControlPopup Populate : Hellow, Can not Create a third...]]> http://forum.codejock.com/forum_posts.asp?TID=4841&PID=15064&title=second-sub-menu-item-xtpcontrolpopup-populate#15064 Author: daveED
Subject: 4841
Posted: 21 August 2006 at 11:29am

Hellow, Can not Create a third Popupmenu with code.

I can create it in the desiner but not in code

could you please help?

this is what im trying to do in code

Item One

xtpControlPopup > Sub 2 Item 1

xtpControlPopup > Sub 3 Item 1

Sub 3 Item 2

Here is the Code:

Private Sub textArea_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If (Button = 2) Then
        ZOrder

        Dim Popup As CommandBar
        Dim Control As CommandBarControl

        Set Popup = CommandBars.Add("Popup", xtpBarPopup)
      With Popup.Controls
            .Add xtpControlButton, ID_EDIT_CUT, "Cu&t", -1, False
            .Add xtpControlButton, ID_EDIT_COPY, "&Copy", -1, False
            .Add xtpControlButton, ID_EDIT_PASTE, "&Paste", -1, False

            Control.BeginGroup = True

            .Add xtpControlButton, ID_INSERT_BULLET, "Bullets", -1, False

            Set Control = .Add(xtpControlPopup, 0, "Styles")

Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLUE, "Luna"

    Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLACK, "Obsidian"
    Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEAQUA, "Office 12"

Set Control = .Add(xtpControlPopup, 0, "Extra Styles")
  Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLETESLA, "Tesla"
Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLETITAN, "Titan"

        End With

        Popup.ShowPopup
    End If
End Sub

Yours Faithley,

David

]]> Mon, 21 Aug 2006 11:29:48 +0000 http://forum.codejock.com/forum_posts.asp?TID=4841&PID=15064&title=second-sub-menu-item-xtpcontrolpopup-populate#15064