vb.net 教程 3-4 窗体编程 ImageList

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
ImageList 图像列表组件，本身没有太多的属性和事件，主要是提供一个图片列表给别的控件使用。
本来ImageList不属于公共控件里面的，但是由于和之后要讲解的几个控件有关系，所以提前到这里进行讲解。
当添加了ImageList组件后，它不会显示在窗体中，而是显示在设计窗体的下面：

属性：
ColorDepth ：图像列表的颜色深度。
ImageSize ：图像列表中的图像大小，默认大小是16*16，最大是256*256。应该在设置Images 前设置此属性。
Images ：一个ImageCollection 类，存放了图片
TransparentColor ：设置图片的透明色

 

从vs编辑器添加图片到ImageList：

注意：添加的时候可以选择多个。

 

如下一个例子：

 

 

其中，ImageList的大小设置为 32*32，Picturebox1大小为32*32，

从vs编辑器手工添加了5张图片，还会使用代码添加和减少图片。

代码如下：

    Dim picIndex As Integer   '用于记录当前使用的ImageList中的图片序号
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        picIndex = 0
        PictureBox1.Image = ImageList1.Images(picIndex)
        Label1.Text = "第" & picIndex + 1 & "张/共" & ImageList1.Images.Count & "张"
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        picIndex -= 1
        If picIndex = -1 Then picIndex = ImageList1.Images.Count - 1
        PictureBox1.Image = ImageList1.Images(picIndex)
        Label1.Text = "第" & picIndex + 1 & "张/共" & ImageList1.Images.Count & "张"
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        picIndex += 1
        If picIndex > ImageList1.Images.Count - 1 Then picIndex = 0
        PictureBox1.Image = ImageList1.Images(picIndex)
        Label1.Text = "第" & picIndex + 1 & "张/共" & ImageList1.Images.Count & "张"
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim newImg As Bitmap = Bitmap.FromFile("d:\15.jpg")
        ImageList1.Images.Add(newImg)
        picIndex = ImageList1.Images.Count - 1
        PictureBox1.Image = ImageList1.Images(picIndex)
        Label1.Text = "第" & picIndex + 1 & "张/共" & ImageList1.Images.Count & "张"
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ImageList1.Images.Count > 0 AndAlso picIndex >= 0 Then
            ImageList1.Images.RemoveAt(picIndex)
            If ImageList1.Images.Count > 0 Then
                picIndex = 0
                PictureBox1.Image = ImageList1.Images(picIndex)
                Label1.Text = "第" & picIndex + 1 & "张/共" & ImageList1.Images.Count & "张"
            Else
                PictureBox1.Image = Nothing
                Label1.Text = "没有图片"
            End If
        Else
            MessageBox.Show("已经没有图片了")
        End If
    End Sub

运行效果如下：

 

其中需要注意的是

1、在显示下一张、上一张图片的时候，防止图片序号超出范围；

2、删除图片的时候防止已经没有图片了还在执行删除操作。

3、插入的是一张比较大的图片，但是由于设置ImageList大小为32*32，所以增加到ImageList后，大小成了32*32，可以将PictureBox1的SizeMode修改为Auto看看。

 

 

学习更多vb.net知识，请参看 vb.net 教程 目录