Programming an array

I would start by making sure that all the option buttons have the same name but a different index value (i.e. a control array of option buttons.)

Next, load you image names into an array variable holding these names, synchronized with the option button numbers.

Then, when the option button is "click"ed, load the corresponding image into a picturebox.

The code would look something like this:

private sub optFoodItem_Click(Index as Integer)
  picFoodItem.Picture = LoadPicture(m_strImagePathArray(Index))
end sub

obviously, elsewhere you need code like this:

Private m_strImagePathArray() as string

...
  m_strImagePathArray(0) = "C:\Project\Images\Pizza.gif"
  m_strImagePathArray(1) = "C:\Project\Images\Soda.gif"
...

I guess I made the same assumptions as wes_wilson, but submitted a few seconds late!

can we split points?

Well, don't jump the gun.  But, the general rule is user should pick the first answer that solves the problem unless another answer offers significantly more value.

That said, points can be split by going the customer support and asking for it.

Also, I see that the original says, "thumbnail images...in an array"

sage55, how are the images stored in the array?  is it an array of pictureboxes?

Hi
IMHO it's array of StdPictures (BTW, I thing it's a better solution then load pictures from HDD every time - to load them when form loading or splash screen displayed).

'In General declaration area
Dim sPic(4) As StdPicture

Private Sub Form_Load
   Set sPic(0) = LoadPicture("c:\Temp\pizza.gif")
   Set sPic(1) = LoadPicture("c:\Temp\coke.gif")
   Set sPic(2) = LoadPicture("c:\Temp\xxxxx.gif")
   Set sPic(3) = LoadPicture("c:\Temp\xxxxx.gif")
   Set sPic(4) = LoadPicture("c:\Temp\xxxxx.gif")
End Sub

Private Sub Option1_Click(Index As Integer)
   Picture1.Picture = sPic(Index)
End Sub

Private Sub Form_Unload (Cancel As Integer)
   Dim i As Long
   For i = 0 To 4 'Free memory
       Set sPic(i) = Nothing
   Next i
End Sub

Regards
Ark

Ok Im sorry, maybe I wasnt clear enough. Here is a lil more detail on what I need and have.

What I have:

5 - Option Buttons in an array with the captions being pizza, coke, etc... (optElement)

1 - Large empty Image control (imgPicture)

5 - Image controls in an array with small images of a pizza, coke, etc... (imgElement)

I need the project to make the imgElement controls invisible when the interface first starts, and when an option button in the option array is clicked the matching imgElement is shown in (imgPicture).

I hope this is a little more clear.


-sage

Private Sub Form_Load()
    imgElement.Stretch = True
End Sub

Private Sub optElement_Click(Index As Integer)
    Set imgElement.Picture = imgPicture(Index).Picture
End Sub

This is exactly what I was looking for.


Thanks,

sage