How I can do this..!

Hi,

Hi every body..
is there any folowup for this topic..!
example or some codes..
thanks

SuperMario,

I'll post some code up tomorrow, I left the project on my other PC.

Image File I use:



Here is the entire contents of the form from which the screenshot I took earlier:

Private Sub Form_Load()
             
    CommandBars.VisualTheme = xtpThemeRibbon
    CommandBars.ActiveMenuBar.Visible = False
    CommandBars.PaintManager.FlatToolBar = True
   
    Dim TabWrite As RibbonTab
    Dim GroupStyles As RibbonGroup, GroupShapes As RibbonGroup
    Dim Control As CommandBarControl
    Dim ControlPopup As CommandBarPopup
    Dim i As Long
   
   
    Dim ControlFile As CommandBarPopup, ControlTheme As CommandBarPopup, ControlAbout As CommandBarControl, ControlPrint As CommandBarPopup
    Dim PopupBar As CommandBar
   
    Dim ToolBar As CommandBar
   
    Set ToolBar = CommandBars.Add("Standard", xtpBarTop)
    ToolBar.ShowExpandButton = False
    ToolBar.EnableDocking xtpFlagStretched
    ToolBar.ModifyStyle XTP_CBRS_GRIPPER, 0
         
    Dim GalleryStyles As CommandBarGallery
    Set GalleryStyles = ToolBar.Controls.Add(xtpControlGallery, ID_GROUP_STYLES, "Styles")
       
    Set ItemsStyles = CommandBars.CreateGalleryItems(ID_GALLERY_STYLES)
   
    ItemsStyles.AddLabel "Featured Online Templates"
   
    ItemsStyles.ItemWidth = 106
    ItemsStyles.ItemHeight = 160
   
    Dim stylesIconArray(1 To 10) As Long
   
    For i = 1 To 10
        ItemsStyles.AddItem (5100 + i), ""
        stylesIconArray(i) = (5100 + i)
    Next i
   
    ItemsStyles.Icons.LoadBitmap App.Path & "\res\GalleryStyles_152x98.png", stylesIconArray, xtpImageNormal
   
    GalleryStyles.Width = 600
    GalleryStyles.Height = 350
    GalleryStyles.SetItemsMargin 4, 4, 4, 4
    GalleryStyles.ShowBorders = True
    GalleryStyles.ShowScrollBar = False
    GalleryStyles.Resizable = xtpAllowResizeHeight Or xtpAllowResizeWidth
   
    Set GalleryStyles.Items = ItemsStyles
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    CommandBars.Move Me.ScaleLeft + 1, Me.ScaleTop + 1, Me.ScaleWidth - 2, Me.ScaleHeight - 2
End Sub

Hi All,

1. center the galleryitems in the middle of the screen (under the ribbonbar)
2. have the galleryitems resize every time the user resize the form
3. load pictures stored in a folder and assign them to each item (I tried using the following code: GalleryItems.Icons.LoadIcon App.Path & "\LargeIcons\Icons1.ico)"
4. fire event everytime the user click on one item (I tried but all the items they have the same ID)

thank you

I put a CommandBars control on a PictureBox control (Picture1) as owner cntrol then I relocate the buttons whereever I want.

ItemsStyles.ItemWidth  :   each button width
GalleryStyles.Width   :  backside-frame width
Picture1.width(,height,left,top)   : position, size

I can get a button event by CommandBars_Execute event like below.

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    Dim i As Integer
    i = Control.SelectedItem.id
    If i = 5101 Then
        Form1.Show vbModal
    ElseIf i = 5102 Then
        Form2.Show vbModal
    End If
   
End Sub

uploads/20090629_083957_3GalleryButtons.zip

Hi cmm2006,
please see my sample app.

Regards,
Norika
uploads/20090706_012830_ResetAndResizeG.zip

Hi,,

Hi Again,