RasterImageList Class

'Declaration
 
<DesignerAttribute(DesignerBaseTypeName="System.ComponentModel.Design.IDesigner", DesignerTypeName="Leadtools.WinForms.RasterImageListDesigner, Leadtools.WinForms, Version=17.5.0.0, Culture=neutral, PublicKeyToken=null")>
<DefaultPropertyAttribute("ViewStyle")>
<DefaultEventAttribute("SelectedIndexChanged")>
<ToolboxBitmapAttribute()>
Public Class RasterImageList 
   Inherits System.Windows.Forms.Control
   Implements System.ComponentModel.IComponent, System.ComponentModel.ISynchronizeInvoke, System.IDisposable, System.Windows.Forms.IBindableComponent, System.Windows.Forms.IDropTarget, System.Windows.Forms.IWin32Window 

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