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