12、图像框（Image）

Image控件使用方法与PictureBox类似，用来装入图形文件。

另外：Image控件还响应Click事件，并可用Image控件代替命令按钮或作为工具条的工程，还可用来制作简单动画。

Picture属性——加载图片。

可以通过属性窗口直接设置Picture属性加载图片，也可以在程序运行时，利用LoadPicture函数来设置，或者可以使用剪贴板（使用方法是常用的复制Ctrl+C和粘贴Ctrl+V）。这些和PictureBox控件相同。

Stretch属性——实现控件包含图形的大小随着控件的大小进行调整。

Ture——表示图形要调整大小以与控件相适应

Flase——表示控件要调整大小以与图形相适应（缺省值）

Image控件与PictureBox控件的区别：

• Image控件使用的系统资源比PictureBox控件少，重新绘图速度快，但它仅支持PictureBox控件的一部分属性、事件和方法；

• 两种控件都支持相同的图片格式。但是在Image控件中图形可以伸展以适合控件的大小，而在PictureBox控件中仅可通过调整控件的大小以适合图形的大小，图形本身并不伸缩；

• PictureBox控件可以作为容器(父控件)，其中包括其它的控件(子控件)，Image控件则不能。

• 图片框更灵活,且适用于动态环境,而图像框适用于静态环境,即不需要再修改的位图、图标、Windows元文件及其它格式文件。

一般在两者都满足需要的情况下，应优先考虑使用图像框。

例子：北京名胜图片。

界面：

代码：

Private Sub Form_Load()

    List1.AddItem "北海"
    List1.AddItem "长城"
    List1.AddItem "故宫"
    List1.AddItem "十三陵"
    List1.AddItem "天坛"
    List1.AddItem "颐和园"
    List1.AddItem "圆明园"

End Sub

Private Sub List1_Click()

    Select Case List1.ListIndex
        Case 0
            Image1.Picture = LoadPicture("G:\图片\北海.jpg")
            Label2.Caption = "北海"
        Case 1
            Image1.Picture = LoadPicture("G:\图片\长城.jpg")
            Label2.Caption = "长城"
        Case 2
            Image1.Picture = LoadPicture("G:\图片\故宫.jpg")
            Label2.Caption = "故宫"
        Case 3
            Image1.Picture = LoadPicture("G:\图片\十三陵.jpg")
            Label2.Caption = "十三陵"
        Case 4
            Image1.Picture = LoadPicture("G:\图片\天坛.jpg")
            Label2.Caption = "天坛"
        Case 5
            Image1.Picture = LoadPicture("G:\图片\颐和园.jpg")
            Label2.Caption = "颐和园"
        Case 6
            Image1.Picture = LoadPicture("G:\图片\圆明园.jpg")
            Label2.Caption = "圆明园"
    End Select

End Sub

清除Image控件中的图片：

Picture1.picture = loadPicture("")

或不加（""），写成 Picture1.picture = loadPicture。

说明：

用loadPicture语句加载图片时，如改变图片的路径，可添加如下语句：

ChDrive App.Path
ChDir App.Path

这样，在loadPicture语句的（）中，只需写入图片的文件名，不用指明路径，同时，将图片和程序生成的文件保存在同一个文件夹下。

[程序演示]        [程序下载]