RasterImageList Class

Imports Leadtools.WinForms
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Drawing

Private Class MyForm1 : Inherits Form
   Public imageList As RasterImageList
   Public Sub New(ByVal title As String)
      Text = title
      ' Set the size of the form
      Size = New Size(400, 200)

      ' Create a new RasterImageList control.
      imageList = New RasterImageList()
      imageList.Bounds = New Rectangle(New Point(0, 0), Size)

      imageList.Sorting = SortOrder.Ascending
      imageList.BorderStyle = BorderStyle.None
      imageList.DoubleBuffer = True
      imageList.Dock = DockStyle.Fill
      Dim paintProperties As RasterPaintProperties = imageList.PaintProperties
      paintProperties.PaintDisplayMode = RasterPaintDisplayModeFlags.Bicubic
      imageList.PaintProperties = paintProperties
      imageList.EnableKeyboard = True
      imageList.UseDpi = True


      ' Add a handler to the PaintBackground event
      AddHandler imageList.PaintBackground, AddressOf rasterImageList_PaintBackground

      Dim codecs As RasterCodecs = New RasterCodecs()

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

      For i As Integer = 0 To 2
         ' Load the image
         Dim index As Integer = i + 1
         Dim imageFileName As String = Path.Combine(imagesPath, "ImageProcessingDemo\Image" & index.ToString() & ".cmp")
         Dim image As RasterImage = codecs.Load(imageFileName, 0, CodecsLoadByteOrder.BgrOrGray, 1, 1)
         Dim item As RasterImageListItem = New RasterImageListItem(image, 1, "Item" & index.ToString())

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

         ' Add the item to the image list
         imageList.Items.Add(item)
      Next i

      ' Add the RasterImageList to the control collection.
      Controls.Add(imageList)
   End Sub


   Private Sub rasterImageList_PaintBackground(ByVal sender As Object, ByVal e As PaintEventArgs)
      ' Get the image list control
      Dim imageList As RasterImageList = CType(IIf(TypeOf sender Is RasterImageList, sender, Nothing), RasterImageList)

      ' Fill the background with a gradient brush
      Dim rc As Rectangle = imageList.ClientRectangle

      Dim b As Brush = New LinearGradientBrush(rc, Color.Bisque, Color.White, LinearGradientMode.Vertical)
      e.Graphics.FillRectangle(b, rc)
      b.Dispose()
   End Sub

End Class

Public Sub RasterImageList_RasterImageList(ByVal title As String)
   Dim form As MyForm1 = New MyForm1(title)
   form.ShowDialog()
End Sub

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