RasterImageListItem Class

'Declaration
 
Public Class RasterImageListItem 
   Inherits ImageListItem
   Implements IImageListItem, System.ComponentModel.ISupportInitialize, System.Windows.IFrameworkInputElement, System.Windows.IInputElement, System.Windows.Markup.IAddChild, System.Windows.Markup.IQueryAmbient, System.Windows.Media.Animation.IAnimatable 

Private Class MyWindow2 : Inherits Window
         Public imageList As ListBox
         Public Sub New(ByVal title As String)
             title = title
             ' Set the size of the window
             Width = 400
             Height = 200

             ' Create a new ImageList control.
             imageList = New ListBox()
             imageList.Width = Double.NaN
             imageList.Height = Double.NaN

             imageList.Items.SortDescriptions.Clear()
             imageList.Background = New RadialGradientBrush(Colors.DarkGray, Colors.LightGray)
             imageList.Items.SortDescriptions.Add(New SortDescription("Text", ListSortDirection.Ascending))

             imageList.BorderThickness = New Thickness(5, 5, 5, 5)


             ' Create three items
             Dim imagesPath As String = LEAD_VARS.ImagesDir
             Try

                 Using codecs As RasterCodecs = New RasterCodecs()
                     For i As Integer = 0 To 2
                         Dim index As Integer = i + 1
                         Dim imageFileName As String = Path.Combine(imagesPath, "ImageProcessingDemo\Image" & index.ToString() & ".jpg")

                         Dim item As RasterImageListItem = New RasterImageListItem()
                         item.Uri = New Uri(imageFileName)
                         item.Text = imageFileName
                         item.ShowText = True

                         item.Image = codecs.Load(imageFileName)
                         item.ImageSize = New Size(120, 120)
                         item.Width = 150
                         item.Height = 150
                         item.SelectedBackground = Brushes.White
                         item.SelectedForeground = Brushes.Blue

                         ' Select the first item
                         If i = 0 Then
                             item.IsSelected = True
                         End If

                         ' Add the item to the image list
                         imageList.Items.Add(item)
                     Next i
                 End Using
             Catch ex As Exception
                 MessageBox.Show(ex.Message)
             Finally
             End Try

             ' Add the ImageList to the Window.
             Content = imageList
         End Sub
     End Class

     Public Sub ImageListItem_RasterImageListItem(ByVal title As String)
         Dim window As MyWindow1 = New MyWindow1(title)
         window.ShowDialog()
     End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class