Codejock Developer Community : Gallery and Checked Item http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 10 Jun 2026 17:40:30 +0000 Mon, 03 Sep 2007 05:56:36 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=7893 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Gallery and Checked Item : Hi, Have to work. Think you...]]> http://forum.codejock.com/forum_posts.asp?TID=7893&PID=25487&title=gallery-and-checked-item#25487 Author: Oleg
Subject: 7893
Posted: 03 September 2007 at 5:56am

Hi,
 
Have to work. Think you modified our sample which is reset CheckedItem  in Update handler.
]]> Mon, 03 Sep 2007 05:56:36 +0000 http://forum.codejock.com/forum_posts.asp?TID=7893&PID=25487&title=gallery-and-checked-item#25487 <![CDATA[Gallery and Checked Item : How can I use the CheckedItem...]]> http://forum.codejock.com/forum_posts.asp?TID=7893&PID=25422&title=gallery-and-checked-item#25422 Author: rupert
Subject: 7893
Posted: 28 August 2007 at 7:23pm

How can I use the CheckedItem property? I have a gallery of icons and I am unable to get it to work. How can I display the 2nd item as checkeditem?
 
I was trying to use this example code snippet.
 
    Set GroupStyles = TabWrite.Groups.AddGroup("&Styles", ID_GROUP_STYLES)
    Dim GalleryStyles As CommandBarGallery
       
   
    Set ItemsStyles = CommandBars.CreateGalleryItems(ID_GALLERY_STYLES)
    ItemsStyles.Icons = ImageManagerGalleryStyles.Icons
    ItemsStyles.ItemWidth = 72
    ItemsStyles.ItemHeight = 56
   
    For i = 1 To 16
        ItemsStyles.AddItem i, ""
    Next i
   
    Set GalleryStyles = GroupStyles.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles")
    GalleryStyles.Width = 235
    GalleryStyles.SetItemsMargin 0, 1, 0, 1
    GalleryStyles.ShowLabels = False
    GalleryStyles.ShowBorders = True
    Set GalleryStyles.Items = ItemsStyles
    GalleryStyles.CheckedItem = 2 ' this does not work 
   
    Dim GalleryPopupBar As CommandBar
    Set GalleryPopupBar = CommandBars.Add("Styles", xtpBarPopup)
   
    GalleryStyles.CommandBar = GalleryPopupBar
   
    Set GalleryStyles = GalleryPopupBar.Controls.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles")
    GalleryStyles.Width = 235 + 72
    GalleryStyles.Height = 56 * 3 + 2
]]> Tue, 28 Aug 2007 19:23:23 +0000 http://forum.codejock.com/forum_posts.asp?TID=7893&PID=25422&title=gallery-and-checked-item#25422