Codejock Developer Community : Menu seperator

Codejock Developer Community : Menu seperator http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 15 Jun 2026 01:58:59 +0000 Thu, 11 Jun 2009 10:53:19 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=14490 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Menu seperator : THIS IS WORKING THANK YOU VERY...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49865&title=menu-seperator#49865 Author: lexicon
Subject: 14490
Posted: 11 June 2009 at 10:53am

THIS IS WORKING

THANK YOU VERY MUCH FOR YOUR TIME

]]> Thu, 11 Jun 2009 10:53:19 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49865&title=menu-seperator#49865 <![CDATA[Menu seperator : Hi, I did test and following...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49860&title=menu-seperator#49860 Author: Aaron
Subject: 14490
Posted: 11 June 2009 at 10:23am

Hi,

I did test and following works. I copied your code and added code (red text)

Dim btn as CommandBarButton

With ToolBar.Controls

        Set controlnew = .Add(xtpControlSplitButtonPopup, 116, "Tehmes")
        controlnew.CommandBar.Controls.Add xtpControlButton, 1, "Windows XP"
        Set btn = controlnew.CommandBar.Controls.Add(xtpControlButton, 2, "Office 2000")
               btn.BeginGroup = True
        controlnew.CommandBar.Controls.Add xtpControlButton, 3, "Office 2003"
        controlnew.CommandBar.Controls.Add xtpControlButton, 4, "Office 2007"
        controlnew.CommandBar.Controls.Add xtpControlButton, 5, "Office XP"
        controlnew.CommandBar.Controls.Add xtpControlButton, 6, "Ribbon"
        controlnew.CommandBar.Controls.Add xtpControlButton, 7, "Whidbey"
End With

]]> Thu, 11 Jun 2009 10:23:35 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49860&title=menu-seperator#49860 <![CDATA[Menu seperator : Sorry but no one works The...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49858&title=menu-seperator#49858 Author: lexicon
Subject: 14490
Posted: 11 June 2009 at 9:55am

Sorry but no one works

The 1st seems to be wrong because there is no method .beginGroup ( i have the 12.0.1 version)

The 2nd and the third running but with no change in the interface (no seperators)

]]> Thu, 11 Jun 2009 09:55:58 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49858&title=menu-seperator#49858 <![CDATA[Menu seperator : There are several ways to do...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49856&title=menu-seperator#49856 Author: Aaron
Subject: 14490
Posted: 11 June 2009 at 9:20am

There are several ways to do this. It will do same thing as Oleg mentioned in previous reply

ControlNew.CommandBar.Controls.Add (xtpControlButton, 107, "home-1").BeginGroup = True
Dim ControlNewButton as CommandBarButton
Set ControlNewButton = ControlNew.CommandBar.Controls.Add (xtpControlButton, 107, "home-1"
ControlNewButton.BeginGroup = True
With ControlNew.CommandBar.Controls.Add (xtpControlButton, 107, "home-1")
.BeginGroup = True
End With

Hope this helps

]]> Thu, 11 Jun 2009 09:20:18 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49856&title=menu-seperator#49856 <![CDATA[Menu seperator : Maybe my English its not so good...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49849&title=menu-seperator#49849 Author: lexicon
Subject: 14490
Posted: 11 June 2009 at 8:26am

Maybe my English its not so good that's why you don;t understand me and i'm apologize for this but

the project has a toolbar with 2 large buttons which are xtpControlSplitButtonPopup

Every button has some choices which are popup

I want to put a seperator inside of every choice in the popup menu not the 2 buttons.

Tha code is this

With Toolbar.Controls
        Set ControlNew = .Add(xtpControlSplitButtonPopup, 201, "Home")
        ControlNew.CommandBar.Controls.Add xtpControlButton, 107, "home-1"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 113, "home-2"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 115, "home-3"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 120, "home-4"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 200, "home-5"
    End With


    With Toolbar.Controls

        Set ControlNew = .Add(xtpControlSplitButtonPopup, 116, "Tehmes")
        ControlNew.BeginGroup = True
        ControlNew.CommandBar.Controls.Add xtpControlButton, 1, "Windows XP"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 2, "Office 2000"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 3, "Office 2003"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 4, "Office 2007"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 5, "Office XP"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 6, "Ribbon"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 7, "Whidbey"
    End With

I want to put a seperetator after every theme

How?

]]> Thu, 11 Jun 2009 08:26:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49849&title=menu-seperator#49849 <![CDATA[Menu seperator : Toolbar.Controls(1).BeginGroup...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49846&title=menu-seperator#49846 Author: Oleg
Subject: 14490
Posted: 11 June 2009 at 7:29am

Toolbar.Controls(1).BeginGroup = TRUE;

Toolbar.Controls(2).BeginGroup = TRUE;

etc or use loop.

]]> Thu, 11 Jun 2009 07:29:14 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49846&title=menu-seperator#49846 <![CDATA[Menu seperator : This is the code With Toolbar.Controls...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49824&title=menu-seperator#49824 Author: lexicon
Subject: 14490
Posted: 11 June 2009 at 3:20am

This is the code

    With Toolbar.Controls

        Set ControlNew = .Add(xtpControlSplitButtonPopup, 116, "themes")
        ControlNew.CommandBar.Controls.Add xtpControlButton, 1, "Windows XP"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 2, "Office 2000"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 3, "Office 2003"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 4, "Office 2007"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 5, "Office XP"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 6, "Ribbon"
        ControlNew.CommandBar.Controls.Add xtpControlButton, 7, "Whidbey"

    End With

how to put a seperator after evey choice?

]]> Thu, 11 Jun 2009 03:20:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49824&title=menu-seperator#49824 <![CDATA[Menu seperator : set BeginGroup property of control....]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49803&title=menu-seperator#49803 Author: Oleg
Subject: 14490
Posted: 10 June 2009 at 12:44pm

set BeginGroup property of control.]]> Wed, 10 Jun 2009 12:44:04 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49803&title=menu-seperator#49803 <![CDATA[Menu seperator : Hello How can i add a menu seperator...]]> http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49790&title=menu-seperator#49790 Author: lexicon
Subject: 14490
Posted: 10 June 2009 at 6:12am

Hello

How can i add a menu seperator in a menu?

Thank you

]]> Wed, 10 Jun 2009 06:12:13 +0000 http://forum.codejock.com/forum_posts.asp?TID=14490&PID=49790&title=menu-seperator#49790