Imports System
Imports System.Windows
Imports Infragistics.Windows.Ribbon
Namespace MyNamespace
Public Partial Class MyWindow
Inherits XamRibbonWindow
Public Sub New()
InitializeComponent()
End Sub
Protected Sub LoadGalleryTool()
Dim setting As New GalleryItemSettings()
setting.TextDisplayMode = GalleryItemTextDisplayMode.Always
setting.TextPlacement = TextPlacement.AboveImage
setting.SelectionDisplayMode = GalleryItemSelectionDisplayMode.HighlightEntireItem
setting.HorizontalTextAlignment = TextAlignment.Center
setting.VerticalTextAlignment = VerticalAlignment.Top
....
Dim item As New GalleryItem()
item.Key = "Item10
item.Text = "Item10"
item.Image = New BitmapImage(New Uri("\Images\ig_office_icon_16.png", UriKind.Relative))
item.Tag = "myTag"
item.Settings = settings
galleryTool.Items.Add(item)
.....
End Sub
End Class
End Namespace