RasterImageListItem Class

Imports Leadtools.Windows.Controls
Imports Leadtools.Codecs

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

Imports Leadtools.Windows.Controls
Imports Leadtools.Codecs

Private Class MyWindow2 : Inherits ChildWindow
   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.Background = New RadialGradientBrush(Colors.DarkGray, Colors.LightGray)
      ImageList.BorderThickness = New Thickness(5, 5, 5, 5)


      ' Create three items
      Dim imagesPath As String = LeadtoolsExamples.Common.ImagesPath.Path
      Try
         Dim codecs As RasterCodecs = New RasterCodecs()
         For i As Integer = 0 To 2
            Dim index As Integer = i + 1
            Dim imageFileName As String = imagesPath & "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 = New SolidColorBrush(Colors.White)
            item.SelectedForeground = New SolidColorBrush(Colors.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
      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.Show()
End Sub