VB.Net Tutorial/2D Graphics/ImageList

Change ImageList Size

<source lang="vbnet">imports System imports System.Drawing imports System.Windows.Forms public class ImageLists : inherits Form

 dim imgList as ImageList = new ImageList()
   dim lbl as Label 
   dim lnk as LinkLabel
   dim btn as Button
   dim nmbrUpDown as NumericUpDown
 public sub New()
      Size = new Size(300,300)
   dim img as Image
   dim i as integer
   dim arFiles as string() = {"1.ico","2.ico","3.ico","4.ico"}
   for i = 0 to arFiles.Length - 1
     img = Image.FromFile(arFiles(i))
     imgList.Images.Add(img)
   next
   imgList.ImageSize = new Size(32, 32)
   img = Image.FromFile("5.ico")
   imgList.Images(imgList.Images.Count - 1) = img
      lbl = new Label()
      lbl.Parent = me
      lbl.Text = "Label"
      lbl.Location = new Point(0,0)
      lbl.Size = new Size (200,20)
      lbl.BorderStyle = BorderStyle.Fixed3D
   lbl.ImageList = imgList
   lbl.ImageIndex = 0
   lbl.ImageAlign = ContentAlignment.MiddleRight
   "  Create numeric updown to select the image
   nmbrUpDown = new NumericUpDown()
   nmbrUpDown.Parent = me
   nmbrUpDown.Location = new Point(0, 60)
   nmbrUpDown.Value = 0
   nmbrUpDown.Minimum = 0
   nmbrUpDown.Maximum = imgList.Images.Count - 1
   nmbrUpDown.Width = 50
   nmbrUpDown.ReadOnly = true
   AddHandler nmbrUpDown.ValueChanged,AddressOf nmbrUpDown_ValueChanged
   end sub
   public shared sub Main() 
     Application.Run(new ImageLists())
   end sub
   private sub nmbrUpDown_ValueChanged(ByVal sender as object,ByVal e as EventArgs)
     dim n as NumericUpDown  = CType(sender, NumericUpDown)
   lbl.ImageIndex = CType(n.Value, Integer)
   end sub

end class</source>

Create ImageList in your code

<source lang="vbnet">imports System imports System.Drawing imports System.Windows.Forms public class ImageLists : inherits Form

 dim imgList as ImageList = new ImageList()
   dim lbl as Label 
   dim lnk as LinkLabel
   dim btn as Button
   dim nmbrUpDown as NumericUpDown
 public sub New()
      Size = new Size(300,300)
   dim img as Image
   dim i as integer
   dim arFiles as string() = {"1.ico","2.ico","3.ico","4.ico"}
   for i = 0 to arFiles.Length - 1
     img = Image.FromFile(arFiles(i))
     imgList.Images.Add(img)
   next
   imgList.ImageSize = new Size(32, 32)
   img = Image.FromFile("5.ico")
   imgList.Images(imgList.Images.Count - 1) = img
      lbl = new Label()
      lbl.Parent = me
      lbl.Text = "Label"
      lbl.Location = new Point(0,0)
      lbl.Size = new Size (200,20)
      lbl.BorderStyle = BorderStyle.Fixed3D
   lbl.ImageList = imgList
   lbl.ImageIndex = 0
   lbl.ImageAlign = ContentAlignment.MiddleRight
   "  Create numeric updown to select the image
   nmbrUpDown = new NumericUpDown()
   nmbrUpDown.Parent = me
   nmbrUpDown.Location = new Point(0, 60)
   nmbrUpDown.Value = 0
   nmbrUpDown.Minimum = 0
   nmbrUpDown.Maximum = imgList.Images.Count - 1
   nmbrUpDown.Width = 50
   nmbrUpDown.ReadOnly = true
   AddHandler nmbrUpDown.ValueChanged,AddressOf nmbrUpDown_ValueChanged
   end sub
   public shared sub Main() 
     Application.Run(new ImageLists())
   end sub
   private sub nmbrUpDown_ValueChanged(ByVal sender as object,ByVal e as EventArgs)
     dim n as NumericUpDown  = CType(sender, NumericUpDown)
   lbl.ImageIndex = CType(n.Value, Integer)
   end sub

end class</source>

Replace an image in ImageList

<source lang="vbnet">imports System imports System.Drawing imports System.Windows.Forms public class ImageLists : inherits Form

 dim imgList as ImageList = new ImageList()
   dim lbl as Label 
   dim lnk as LinkLabel
   dim btn as Button
   dim nmbrUpDown as NumericUpDown
 public sub New()
      Size = new Size(300,300)
   dim img as Image
   dim i as integer
   dim arFiles as string() = {"1.ico","2.ico","3.ico","4.ico"}
   for i = 0 to arFiles.Length - 1
     img = Image.FromFile(arFiles(i))
     imgList.Images.Add(img)
   next
   imgList.ImageSize = new Size(32, 32)
   img = Image.FromFile("5.ico")
   imgList.Images(imgList.Images.Count - 1) = img
      lbl = new Label()
      lbl.Parent = me
      lbl.Text = "Label"
      lbl.Location = new Point(0,0)
      lbl.Size = new Size (200,20)
      lbl.BorderStyle = BorderStyle.Fixed3D
   lbl.ImageList = imgList
   lbl.ImageIndex = 0
   lbl.ImageAlign = ContentAlignment.MiddleRight
   "  Create numeric updown to select the image
   nmbrUpDown = new NumericUpDown()
   nmbrUpDown.Parent = me
   nmbrUpDown.Location = new Point(0, 60)
   nmbrUpDown.Value = 0
   nmbrUpDown.Minimum = 0
   nmbrUpDown.Maximum = imgList.Images.Count - 1
   nmbrUpDown.Width = 50
   nmbrUpDown.ReadOnly = true
   AddHandler nmbrUpDown.ValueChanged,AddressOf nmbrUpDown_ValueChanged
   end sub
   public shared sub Main() 
     Application.Run(new ImageLists())
   end sub
   private sub nmbrUpDown_ValueChanged(ByVal sender as object,ByVal e as EventArgs)
     dim n as NumericUpDown  = CType(sender, NumericUpDown)
   lbl.ImageIndex = CType(n.Value, Integer)
   end sub

end class</source>