Command Bars - Adding More Sub Button in popup

Print Page | Close Window

Adding More Sub Button in popup

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=13332
Printed Date: 07 October 2024 at 6:29am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Adding More Sub Button in popup

Posted By: uangonline
Subject: Adding More Sub Button in popup
Date Posted: 04 February 2009 at 2:53pm

hello there, i want to add more sub button after xtpcontrolpopup, can anyone help me?
below is my code
sorry for my bad english.

Public Function popup_me()
Dim Popup As CommandBar
Dim control As CommandBarControl

Set Popup = utama.combar.Add("Popup", xtpBarPopup)

With Popup
        Set control = AddButton(.Controls, xtpControlButton, ID_GUEST_LOG, "Guest Login")
        Set control = AddButton(.Controls, xtpControlButton, ID_MOVE_CUSTOMER, "Move Customer")
        control.BeginGroup = True
        Set control = AddButton(.Controls, xtpControlButton, ID_LOGOUT, "Logout")
        Set control = AddButton(.Controls, xtpControlButton, ID_CANCEL, "Cancel")
        Set control = AddButton(.Controls, xtpControlPopup, 0, "Edit Login")
            control.CommandBar.Controls.Add xtpControlButton, ID, "blala"
            control.CommandBar.Controls.Add xtpControlPopup, 0, "bla"

           " I want to add more button for this xtpcontrolpopup "bla"

          control.CommandBar.Controls.Add xtpControlButton, id, "LL"

End With

Dim nCommand As Long
    nCommand = Popup.ShowPopup(TPM_RETURNCMD)

    If (nCommand = 0) Then Exit Function

    Select Case (nCommand)
        Case ID_GUEST_LOG:
        msgbox"ll"
        Case ID_SHORTCUT_SHOW_FEWER:
        MsgBox "kk"
    End Select
End Function

Replies:

Posted By: Oleg
Date Posted: 05 February 2009 at 6:07am

Same:

Set control2 = control.CommandBar.Controls.Add (xtpControlPopup, 0, "bla")

control2.CommandBar.Controls.Add xtpControlPopup, 0, "bla2"

-------------
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS

Posted By: uangonline
Date Posted: 05 February 2009 at 8:26am

oleg wrote:

Same:

Set control2 = control.CommandBar.Controls.Add (xtpControlPopup, 0, "bla")

control2.CommandBar.Controls.Add xtpControlPopup, 0, "bla2"

do i have to make

dim control2 as commandbar

again?

Posted By: uangonline
Date Posted: 05 February 2009 at 8:51am

oleg wrote:

Same:

Set control2 = control.CommandBar.Controls.Add (xtpControlPopup, 0, "bla")

control2.CommandBar.Controls.Add xtpControlPopup, 0, "bla2"

Problem solved thanks a lot