SelectionMode Property (RasterImageList)

'Declaration
 
<DescriptionAttribute("Indicates if the control is to be single-select, multi-select or unselectable.")>
<CategoryAttribute("Behavior")>
Public Property SelectionMode As RasterImageListSelectionMode

Private Class MyForm5 : Inherits Form
      Private imageList As RasterImageList
      Private codecs As RasterCodecs
      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.Dock = DockStyle.Fill
         imageList.SelectionMode = RasterImageListSelectionMode.Single
         imageList.Size = Size
         Controls.Add(imageList)
         imageList.BringToFront()

         codecs = 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


         ' Use manual selection
         imageList.SelectionMode = RasterImageListSelectionMode.None

         ' Add a handler to the MouseDown event
         AddHandler imageList.MouseDown, AddressOf rasterImageList_MouseDown

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

      Private Sub rasterImageList_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
         Dim imageList As RasterImageList = CType(IIf(TypeOf sender Is RasterImageList, sender, Nothing), RasterImageList)

         ' Check if we are in manual selection mode and if this is a left button click
         If imageList.SelectionMode = RasterImageListSelectionMode.None AndAlso e.Button = Windows.Forms.MouseButtons.Left Then
            ' Yes, get the item under the cursor position
            Dim item As RasterImageListItem = imageList.HitTest(e.X, e.Y)

            ' If not already selected, select this item
            If Not item Is Nothing AndAlso (Not item.Selected) Then
               imageList.BeginUpdate()

               ' First, de-select any items
               imageList.SelectAll(False)

               ' Now select this item
               item.Selected = True

               imageList.EndUpdate()

               item.Invalidate()
            End If
         End If
      End Sub
   End Class

   Public Sub RasterImageList_SelectionMode(ByVal title As String)
      Dim form As MyForm5 = New MyForm5(title)
      form.ShowDialog()
   End Sub

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