【控件工具箱】VBA｜使用窗体控件15：使用图像列表控件保存图像

图像列表控件ImageList包含需要使用图像的其他控件中可用的图像集合。

用ImageList控件存储图像可以节约程序的开发时间，因为这样可以使编写的代码引用单一和一致的图像目录，而不用在每次显示图片时都使用LoadPicture函数从磁盘上装载图片。用户只需要使用一次LoadPicture函数将图片填充到ImageList控件中，并分配引用的Key值，这样在后续的代码中只需要根据Key或Index属性来引用ImageList控件中存储的图像即可。

1 添加控件到工具箱

Alt+F11(打开VBE）→插入→用户窗体，在工程中增加一个用户窗体，同时显示出“工具箱”→右击→附加控件：Microsoft ImageList Control 6.0。

2 插入窗体和控件

3 将图像储藏到ImageList控件

3.1 使用可视方式添加图像

ImageList控件的属性窗口→“(自定义)"选项的右侧的"…"按钮，即可按提示插入图像。

3.2 使用代码添加图像

Private Sub UserForm_Initialize()

Dim sPath As String

sPath = T & "\"

With ImageLi

.Add , "a", LoadPicture(sPath & "1.jpg")

.Add , "b", LoadPicture(sPath & "2.ico")

.Add , "c", LoadPicture(sPath & "3.ico")

.Add , "d", LoadPicture(sPath & "4.jpg")

End With

End Sub

4 编写窗体控件代码

Private Sub cmdLoad_Click()

Set Image1.Picture = ImageLi("a").Picture

End Sub

Private Sub cmdOver_Click()

ImageLi = vbWhite '屏蔽颜色为白色

Set Image1.Picture = ImageLi("a", "d")

End Sub

Private Sub cmdClear_Click()

Set Image1.Picture = LoadPicture("")

End Sub

在调用上述窗体后，即可进行如下操作：

－End－