parallel control arrays

[gmeister]

Hello all,

I am trying to write a simple app which has parallel arrays. One array has option buttions and the other array
has images. I want to move an image to a larger image based on the option selected.

My click event for the options buttons is;


Private Sub Option_Click(Index As Integer)
imgPicture.Picture = Image(Index).Picture
End Sub

Why do I get an error of 'invalid qualifier'?

Gary

[sebs]

How do you declare your array of picture?

You have to set each element in your array as picture.

ex:set array(2).picture = "c:\allo.bmp"

[kedaman]

Use stdpictures instead of pictureboxes if their only purpose is to store the picture contents that will show up when you click the option. You get invalid qualifier because you didn't use Set as sebs showed you. Set should be used to set any object variables.

[gmeister]

Thanks for the reply but I am more confused.

Each image property in the image array has a picture
defined. All I want to do is move one of these pictures
to the big image box on the form.

My text book says to make the arrays parallel. What does
that mean. Do I have to do something special to make
the arrays parallel.

[kedaman]

Nothing special with parallell arrays, you just know that both arrays contain related data for each element independently, that means when you add something to the first, you also add to the other, that goes from removing, moving and swapping the data.

I think you should use Stdpictures to save resources: declare the array as Stdpicture instead of picturebox and use the stdpicture directly when loading the bitmap:

Image(index) = Loadpicture("C:\Yourpic.bmp")

Then to set the Image contents to the imagebox:

set imgPicture.Picture = Image(Index)

[sebs]

I don't know what you're doiing wrong, cuz i just try it
and it works great.

-I put an array of image
-1 picture box
-array of option button

and here's my code:

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

it works!!!!