Picture Arrays

[bigsheepboy]

Could someone please tell me how to add a picture array? I can call the fuction, declare my variables(I think) but the picture doesn't show.

Help me!!

[HeSaidJoe]

Dim myArr(4) '5 pictures
MyArr(0) = "C:\mypic1.jpg"
MyArr(1) = "C"\mypic2.gif"
etc.

Set Picture1.Picture = LoadPicture MyArr(0) ' load mypic1

[ExcalibursZone]

You can set an array of paths to pictures, or you can create a control array to a picturebox or an image.

For instance, add a picturebox to your form.
Select then copy the picturebox.
Click on your form again and paste the picturbox back on it.
The VBIDE will ask if you want to create a control array since there is a control named Picture1 already on the form.
Say yes. And there you have it, a control array.

You could also set the Index property of the Picturebox but I found copy & paste to be the quickest way to do it

[HeSaidJoe]

'or you can load a file's contents into an array

Option Explicit

Dim myArray()

Private Sub Form_Load()
'access all files within a folder

Dim stFile As String
    Dim stDir As String
    Dim i As Integer
    
    stDir = "C:\myfolder\"
    stFile = Dir$(stDir & "*.*")
    
    Do While stFile <> ""
    stFile = stDir & stFile
    
    ReDim Preserve myArray(i)
      myArray(i) = stFile
      stFile = Dir
       List1.AddItem myArray(i)
      i = i + 1
     
    Loop

End Sub
Private Sub Command1_Click()
    Dim x As Integer
    'tells you how many pictures were in the file
    x UBound(myArray)
    'to load the picture
    'Set Picture1.Picture = LoadPicture(myArray(any # from zero to x))
    Set Picture1.Picture = LoadPicture(myArray(7))

End Sub

[bigsheepboy]

Thanks for the help!