Codejock Developer Community : Gallery Item ID http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 11 Jun 2026 02:02:52 +0000 Mon, 19 Nov 2007 04:28:08 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=8806 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Gallery Item ID : Thanks - that worked fine. ]]> http://forum.codejock.com/forum_posts.asp?TID=8806&PID=28610&title=gallery-item-id#28610 Author: LeeHayton
Subject: 8806
Posted: 19 November 2007 at 4:28am

Thanks - that worked fine.]]> Mon, 19 Nov 2007 04:28:08 +0000 http://forum.codejock.com/forum_posts.asp?TID=8806&PID=28610&title=gallery-item-id#28610 <![CDATA[Gallery Item ID : Hi, Just pasted from Rbbonsample: ...]]> http://forum.codejock.com/forum_posts.asp?TID=8806&PID=28560&title=gallery-item-id#28560 Author: Oleg
Subject: 8806
Posted: 17 November 2007 at 1:01am

Hi,
 
Just pasted from Rbbonsample:
 
         Dim Gallery As CommandBarGallery
            Set Gallery = Control
           
            If Not Gallery.SelectedItem Is Nothing Then
                SelectedStyle = Gallery.SelectedItem.Id
            End If
]]> Sat, 17 Nov 2007 01:01:09 +0000 http://forum.codejock.com/forum_posts.asp?TID=8806&PID=28560&title=gallery-item-id#28560 <![CDATA[Gallery Item ID : How do I detect which gallery...]]> http://forum.codejock.com/forum_posts.asp?TID=8806&PID=28545&title=gallery-item-id#28545 Author: LeeHayton
Subject: 8806
Posted: 16 November 2007 at 10:11am

How do I detect which gallery Item has been clicked?
 
When I run this code It does not display the Gallery Item ID but the ID of the Gallery.
 
Thanks
Lee
 
Private Sub Form_Load()
    Dim ComboPopup As CommandBar, cbp As CommandBarPopup, cbg As CommandBarGallery, cbgis As CommandBarGalleryItems, cbgi As CommandBarGalleryItem
    With CommandBars1
       
        Set cbp = .ActiveMenuBar.Controls.Add(xtpControlPopup, 1, "Add")
       
        Set cbg = cbp.CommandBar.Controls.Add(xtpControlGallery, ID_Garrery, "Gallery")
            cbg.Height = 250
            cbg.Controls.Add xtpControlButton, 1, "Edit List"
            'cbg.CloseSubMenuOnClick = False
           
            Set cbgis = .CreateGalleryItems(ID_Gallery)
                cbgis.ItemWidth = 0
                'cbgis.ItemHeight = 26
               
                'cbgis.AddLabel "Gallery Items"
                cbgis.AddItem 11, "Item 1"
                cbgis.AddItem 12, "Item 2"
                cbgis.AddItem 13, "Item 3"
      
            Set cbg.Items = cbgis
           
    End With
End Sub
 
Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    MsgBox Control.Id
End Sub
]]> Fri, 16 Nov 2007 10:11:38 +0000 http://forum.codejock.com/forum_posts.asp?TID=8806&PID=28545&title=gallery-item-id#28545