Codejock Developer Community : Adding More Sub Button in popup http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sun, 14 Jun 2026 19:30:27 +0000 Thu, 05 Feb 2009 08:51:41 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=13332 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Adding More Sub Button in popup : oleg wrote:Same: Set control2...]]> http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45151&title=adding-more-sub-button-in-popup#45151 Author: uangonline
Subject: 13332
Posted: 05 February 2009 at 8:51am

Originally posted by oleg oleg wrote:

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

Problem solved thanks a lot
]]> Thu, 05 Feb 2009 08:51:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45151&title=adding-more-sub-button-in-popup#45151 <![CDATA[Adding More Sub Button in popup : oleg wrote:Same: Set control2...]]> http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45150&title=adding-more-sub-button-in-popup#45150 Author: uangonline
Subject: 13332
Posted: 05 February 2009 at 8:26am

Originally posted by oleg oleg wrote:

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


do i have to make
Quote
dim control2 as commandbar

 again?
]]> Thu, 05 Feb 2009 08:26:17 +0000 http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45150&title=adding-more-sub-button-in-popup#45150 <![CDATA[Adding More Sub Button in popup : Same: Set control2 = control.CommandBar.Controls.Add...]]> http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45144&title=adding-more-sub-button-in-popup#45144 Author: Oleg
Subject: 13332
Posted: 05 February 2009 at 6:07am

Same:
 
Set control2 = control.CommandBar.Controls.Add (xtpControlPopup, 0, "bla")
control2.CommandBar.Controls.Add xtpControlPopup, 0, "bla2"
]]> Thu, 05 Feb 2009 06:07:20 +0000 http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45144&title=adding-more-sub-button-in-popup#45144 <![CDATA[Adding More Sub Button in popup : hello there, i want to add more...]]> http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45133&title=adding-more-sub-button-in-popup#45133 Author: uangonline
Subject: 13332
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.

Quote 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
 


]]> Wed, 04 Feb 2009 14:53:36 +0000 http://forum.codejock.com/forum_posts.asp?TID=13332&PID=45133&title=adding-more-sub-button-in-popup#45133