right click pop up menu

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   Hello
I have the made a right click menu creation code in vb6, which works fine, however when i make a submenu like so


Set oPopup = oBar.Controls.Add(xtpControlPopup, 1, "Sub Menu")
With oPopup.CommandBar.Controls
	.Add xtpControlButton, 1, "Test 123"
End With

it works and makes a submenu on the popup, with 1 item on the submenu

However I have made my function so that you call it for each item you want adding to the menu, but if you call the above code twice, you, of course, get 2 submenus and not 2 items on 1 submenu

so does anyone know how to add an item to a submenu which is already created, I know I can do the following


Set oPopup = oBar.Controls.Add(xtpControlPopup, 1, "Sub Menu")
With oPopup.CommandBar.Controls
	.Add xtpControlButton, 1, strMenuCaption
	.Add xtpControlButton, 1, strMenuCaption
End With

however I do not send all items at once to the function, so this does not work with my current setup

I just want to be able to do this line


.Add xtpControlButton, 1, strMenuCaption

without it make a new submenu each time, but that needs the oBar.Controls, which i can not create without make another submenu

cheers