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

Dim instance As RasterImageList

[ToolboxBitmapAttribute()]
[DesignerAttribute(DesignerBaseTypeName="System.ComponentModel.Design.IDesigner", DesignerTypeName="Leadtools.WinForms.RasterImageListDesigner, Leadtools.WinForms, Version=17.0.0.0, Culture=neutral, PublicKeyToken=null")]
[DefaultPropertyAttribute("ViewStyle")]
[DefaultEventAttribute("SelectedIndexChanged")]
public class RasterImageList : System.Windows.Forms.Control, IComponent, ISynchronizeInvoke, IDisposable, IBindableComponent, IDropTarget, IWin32Window  

[ToolboxBitmapAttribute()]
[DesignerAttribute(DesignerBaseTypeName="System.ComponentModel.Design.IDesigner", DesignerTypeName="Leadtools.WinForms.RasterImageListDesigner, Leadtools.WinForms, Version=17.0.0.0, Culture=neutral, PublicKeyToken=null")]
[DefaultPropertyAttribute("ViewStyle")]
[DefaultEventAttribute("SelectedIndexChanged")]
public ref class RasterImageList : public System.Windows.Forms.Control, IComponent, ISynchronizeInvoke, IDisposable, IBindableComponent, IDropTarget, 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

class MyForm1 : Form
   {
      public RasterImageList imageList;
      public MyForm1(string title)
      {
         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;
         RasterPaintProperties paintProperties = imageList.PaintProperties;
         paintProperties.PaintDisplayMode = RasterPaintDisplayModeFlags.Bicubic;
         imageList.PaintProperties = paintProperties;
         imageList.EnableKeyboard = true;
         imageList.UseDpi = true;

         // Add a handler to the PaintBackground event
         imageList.PaintBackground += new PaintEventHandler(rasterImageList_PaintBackground);

         RasterCodecs codecs = new RasterCodecs();

         // Create three items
         string imagesPath = LEAD_VARS.ImagesDir;

         for(int i = 0; i < 3; i++)
         {
            // Load the image
            int index = i + 1;
            string imageFileName = Path.Combine(imagesPath, @"ImageProcessingDemo\Image" + index.ToString() + ".cmp");
            RasterImage image = codecs.Load(imageFileName, 0, CodecsLoadByteOrder.BgrOrGray, 1, 1);
            RasterImageListItem item = new RasterImageListItem(image, 1, "Item" + index.ToString());

            // Select the first item
            if(i == 0)
               item.Selected = true;

            // Add the item to the image list
            imageList.Items.Add(item);
         }

         // Add the RasterImageList to the control collection.
         Controls.Add(imageList);
      }


      private void rasterImageList_PaintBackground(object sender, PaintEventArgs e)
      {
         // Get the image list control
         RasterImageList imageList = sender as RasterImageList;

         // Fill the background with a gradient brush
         Rectangle rc = imageList.ClientRectangle;

         Brush b = new LinearGradientBrush(
            rc,
            Color.Bisque,
            Color.White,
            LinearGradientMode.Vertical);
         e.Graphics.FillRectangle(b, rc);
         b.Dispose();
      }

   }

   public void RasterImageList_RasterImageList(string title)
   {
      MyForm1 form = new MyForm1(title);
      form.ShowDialog();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}