Tutorial - CommandBar

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

   Problem with commandbarcontrol 

Code:
Dim Control As CommandBarControl
    Set ControlView = CommandBars.ActiveMenuBar.Controls.Add  (xtpControlPopup, 0, "&View")
    With ControlView.CommandBar.Controls
        Set Control = .Add(xtpControlPopup, 0, "&Toolbars")
        Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_TOOLBAR_STANDARD, "&Standard"

        'Control doesnot have COMMANDBAR Property ?????????????

        .Add xtpControlButton, ID_VIEW_STATUSBAR, "Status Bar"
    End With

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Shabu007 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 09 January 2007 Location: Uganda Status: Offline Points: 1	Post Options Post Reply Quote Shabu007 Report Post Thanks(0) Quote Reply Topic: Tutorial - CommandBar Posted: 09 January 2007 at 2:55pm
	Problem with commandbarcontrol Code: Dim Control As CommandBarControl Set ControlView = CommandBars.ActiveMenuBar.Controls.Add (xtpControlPopup, 0, "&View") With ControlView.CommandBar.Controls Set Control = .Add(xtpControlPopup, 0, "&Toolbars") Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_TOOLBAR_STANDARD, "&Standard" 'Control doesnot have COMMANDBAR Property ????????????? .Add xtpControlButton, ID_VIEW_STATUSBAR, "Status Bar" End With
	Shabuddin, Uganda

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 09 January 2007 at 4:35pm
	It is OK. But if you need to see the property then you can do: Dim ControlPopup as CommandBarPopup Set ControlPopup = .Add(xtpControlPopup, 0, "&Toolbars")