ItemBorderBrush Property

Imports Leadtools.Windows.Controls
Imports Leadtools.Codecs
Imports Leadtools

Private Class MyWindow2 : Inherits Window
   Public imageList As ImageList
   Public Sub New(ByVal title As String)
      title = title
      ' Set the size of the window
      Width = 400
      Height = 200

      ' Create a new ImageList control.
      imageList = New ImageList()
      imageList.Width = Double.NaN
      imageList.Height = Double.NaN

      imageList.Background = New RadialGradientBrush(Colors.DarkGray, Colors.LightGray)

      imageList.ItemBorderBrush = Brushes.Yellow
      imageList.ItemStyle = ImageListItemStyle.Normal
      imageList.ItemBorderThickness = New Thickness(5)
      imageList.ItemMargin = New Thickness(10)

      imageList.ItemSize = New Size(250, 250)
      imageList.ItemImageSize = New Size(200, 200)

      imageList.ItemSelectedForeground = Brushes.Blue
      imageList.ItemSelectedBackground = Brushes.White
      imageList.BorderThickness = New Thickness(5)


      ' 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() & ".jpg")

         Dim item As ImageListItem = New ImageListItem()
         item.Source = New BitmapImage(New Uri(imageFileName))
         item.Text = "item" & index.ToString()


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

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

      ' Add the ImageList to the Window.
      Content = imageList
   End Sub
End Class

Public Sub ImageList_ItemBorderBrush(ByVal title As String)
   Dim window As MyWindow2 = New MyWindow2(title)
   window.ShowDialog()
End Sub

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

Imports Leadtools.Windows.Controls

Private Class MyWindow2 : Inherits ChildWindow
   Public imageList As ImageList
   Public Sub New(ByVal title As String)
      title = title
      ' Set the size of the window
      Width = 400
      Height = 200

      ' Create a new ImageList control.
      imageList = New ImageList()
      imageList.Width = Double.NaN
      imageList.Height = Double.NaN

      imageList.Background = New RadialGradientBrush(Colors.DarkGray, Colors.LightGray)

      imageList.ItemBorderBrush = New SolidColorBrush(Colors.Yellow)
      imageList.ItemStyle = ImageListItemStyle.Normal
      imageList.ItemBorderThickness = New Thickness(5)
      imageList.ItemMargin = New Thickness(10)

      imageList.ItemSize = New Size(250, 250)
      imageList.ItemImageSize = New Size(200, 200)

      imageList.ItemSelectedForeground = New SolidColorBrush(Colors.Blue)
      imageList.ItemSelectedBackground = New SolidColorBrush(Colors.White)
      imageList.BorderThickness = New Thickness(5)


      ' Create three items
      Dim imagesPath As String = LeadtoolsExamples.Common.ImagesPath.Path

      For i As Integer = 0 To 2
         ' Load the image
         Dim index As Integer = i + 1
         Dim imageFileName As String = imagesPath & "Image" & index.ToString() & ".jpg"

         Dim item As ImageListItem = New ImageListItem()
         item.Source = New BitmapImage(New Uri(imageFileName))
         item.Text = "item" & index.ToString()


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

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

      ' Add the ImageList to the Window.
      Content = imageList
   End Sub
End Class

Public Sub ImageList_ItemBorderBrush(ByVal title As String)
   Dim window As MyWindow2 = New MyWindow2(title)
   window.Show()
End Sub