请问如何将图片放到数组里面

Question

放到数组里面,而且我还要读取出来再显示的,请问有事例代码么?
谢谢

Answer 1

很简单，提供思路：
定义ADO的流对象数组存储图片文件

Answer 2

        Dim PBag As New PropertyBag
        Dim Pic() As Byte
        PBag.WriteProperty "PIC", picEmp.Picture
        Pic = PBag.Contents
        Set PBag = Nothing得到图片数组Dim Pic() As Byte
Dim PBag As New PropertyBag
Pic = sPic
PBag.Contents = Pic
picEmp.Picture = PBag.ReadProperty("PIC")
Set PBag = Nothing放到picture控件上

Answer 3

Private Sub Form_Load()
Dim Pic(3) As StdPicture
Set Pic(0) = LoadPicture(App.Path & "\1.jpg")
Set Pic(1) = LoadPicture(App.Path & "\2.jpg")
Set Pic(2) = LoadPicture(App.Path & "\3.jpg")
Set Pic(3) = LoadPicture(App.Path & "\4.jpg")
Picture1.Picture = Pic(0)
End Sub