Codejock Developer Community : Displaying PopUp menu from one commandbar

Displaying PopUp menu from one commandbar : Thanks SuperMario, that's...

Mon, 24 Jan 2005 16:26:03 +0000

Author: ianp
Subject: 1697
Posted: 24 January 2005 at 4:26pm

Thanks SuperMario, that's exactly what I'm after...


Dim xcbSourcePop As CommandBarPopup, xcbNewPop As CommandBarPopup, xcbDestBar As CommandBar
' Assign variables
Set xcbSourcePop =  Form1.CommandBars1.ActiveMenuBar.FindControl(xtpControlPopup , 12)
Set xcbDestBar = Me.CommandBars2.ActiveMenuBar
' Create New ControlPopup
Set xcbNewPop = Me.CommandBars2.ActiveMenuBar.Controls.Add(xtpControlPopup, Me.hWnd, "test " & Me.hWnd)
' Copy Controls from Source ControlPopup CommandBar
For Each xcbSourceCtrl In xcbSourcePop.CommandBar.Controls
    xcbSourceCtrl.Copy xcbNewPop.CommandBar
Next

Oddly, if you copy the controlpopup from form1, to form2, all the commandbar.controls are all disabled???


Dim xcbSourcePop As CommandBarPopup, xcbNewPop As CommandBarPopup, xcbDestBar As CommandBar
' Assign variables
Set xcbSourcePop =  Form1.CommandBars1.ActiveMenuBar.FindControl(xtpControlPopup , ID_POP_TEST)
Set xcbDestBar = Form2.CommandBars2.ActiveMenuBar
' Copy ControlPopup
Set xcbNewPop = xcbSourcePop.Copy(xcbDestBar)

Displaying PopUp menu from one commandbar : I'm thinking you can use...

Mon, 24 Jan 2005 09:28:55 +0000

Author: SuperMario
Subject: 1697
Posted: 24 January 2005 at 9:28am

I'm thinking you can use the Copy method to copy from one toanother. But I have not tried this myself, so I can't say forsure.

I'm thinking something like this:

Private Sub rtfText_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    If (Button = 2) Then
        If CommandBars.DesignerControls Is Nothing Then Exit Sub

        Dim Control As CommandBarControl, ContextControl As CommandBarControl
        Dim Popup As CommandBar

        Set Control = frmForm1.CommandBars.DesignerControls.Find(, ID_CONTEXT_MENU)
        If Control Is Nothing Then Exit Sub
         &nbs p;
        Set Popup = frmForm2.CommandBars.Add("Popup", xtpBarPopup)
        For Each ContextControl In Control.CommandBar.Controls
         &nbs p; ContextControl.Copy Popup
        Next
         &nbs p;
        Popup.ShowPopup
    End If
End Sub

Displaying PopUp menu from one commandbar : I have an SDI form which contains...

Mon, 24 Jan 2005 09:23:26 +0000

Author: ianp
Subject: 1697
Posted: 24 January 2005 at 9:23am

I have an SDI form which contains a commandbar control and a docking pane.

The docking pane loads a form which contains a second commandbar control.

Each commandbar control contains a control of type xtpControlPopup.

On the SDI form, the PopUp has several controls added to its commandbar.controls collection

On the DockingPane form, the PopUp has no controls added to its commandbar.controls collection. However, it needs to display the same controls as the SDI PopUp.

Is is possible to re-use the SDI PopUp on the Docking Pane? Or do I have to add the controls to both forms???