Codejock Developer Community : How to use BeginGroup in nested menus? http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sun, 14 Jun 2026 12:27:18 +0000 Thu, 30 Oct 2008 03:11:46 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=12555 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[How to use BeginGroup in nested menus? : How you declared ControlAscending...]]> http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42491&title=how-to-use-begingroup-in-nested-menus#42491 Author: Oleg
Subject: 12555
Posted: 30 October 2008 at 3:11am

How you declared ControlAscending  ?]]> Thu, 30 Oct 2008 03:11:46 +0000 http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42491&title=how-to-use-begingroup-in-nested-menus#42491 <![CDATA[How to use BeginGroup in nested menus? : Oleg, thank you for the suggestion....]]> http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42488&title=how-to-use-begingroup-in-nested-menus#42488 Author: eugene_v
Subject: 12555
Posted: 29 October 2008 at 11:12pm

Oleg, thank you for the suggestion. Yet, for some reason, I get Run-time error 13, Type Mismatch on this line:
 
      Set ControlAscending = Control.CommandBar.Controls.Add(xtpControlButton, ID_VIEW_SORT_BY_ASCENDING, "Ascending")
 
For some reason it doesn't like the result returned by .Add
 
Any ideas? What am I doing wrong?
 
Eugene
]]> Wed, 29 Oct 2008 23:12:57 +0000 http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42488&title=how-to-use-begingroup-in-nested-menus#42488 <![CDATA[How to use BeginGroup in nested menus? : Hi, add additional variable...]]> http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42450&title=how-to-use-begingroup-in-nested-menus#42450 Author: Oleg
Subject: 12555
Posted: 29 October 2008 at 5:11am

Hi,
add additional variable
 
Set ControAscending = Control.CommandBar.Controls.Add (xtpControlButton, ID_VIEW_SORT_BY_ASCENDING, "Ascending")

ControAscending.BeginGroup = True
]]> Wed, 29 Oct 2008 05:11:23 +0000 http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42450&title=how-to-use-begingroup-in-nested-menus#42450 <![CDATA[How to use BeginGroup in nested menus? : Good day everyone! Could someone...]]> http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42437&title=how-to-use-begingroup-in-nested-menus#42437 Author: eugene_v
Subject: 12555
Posted: 28 October 2008 at 8:18pm

Good day everyone!
 
Could someone point me at how to use BeginGroup in nested menus?
 
Here is my code:
 
  'Creating View menu and items
  Set ControlView = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, ID_VIEW, "&View")
  With ControlView.CommandBar.Controls
    .Add xtpControlButton, ID_VIEW_CustomerList, "Customer &List..."
    .Add xtpControlButton, ID_VIEW_Inventory, "&Inventory..."
    '---
    Set Control = .Add(xtpControlButton, ID_VIEW_Reports, "&Reports...")
    Control.BeginGroup = True
    '---
    Set Control = .Add(xtpControlPopup, ID_VIEW_SORT, "&Sort Invoices By")
    Control.BeginGroup = True
      Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_SORT_BY_AMOUNT_DUE, "&Amount Due"
      Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_SORT_BY_STATUS, "St&atus"
      'I want to place a separator here
      Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_SORT_BY_ASCENDING, "Ascending"
      Control.BeginGroup = True 'does not work - no separator is displayed
      Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_SORT_BY_DESCENDING, "Descending"
  End With
 
Thank you very much in advance,
Eugene
]]> Tue, 28 Oct 2008 20:18:42 +0000 http://forum.codejock.com/forum_posts.asp?TID=12555&PID=42437&title=how-to-use-begingroup-in-nested-menus#42437