Escenario
 

¿Podria alguien decirme como hacer un array de controles image, para crear el escenario de un laberinto?

Lo de poner cada imagen lo he entendido

Me han dicho de poner

o algo parecido para hacerlo pero no consigo resolverlo.

Espero que alguien pueda ayudarme.

De todas formas gracias de antemano.

Re: Escenario
 

Primero, las normas elementales de los foros es no crear un nuevo post sin haber resuelto el anterior sobre el mismo tema.

Y para crear un array de controles, lo puedes hacer en diseño
- Colocas (en este caso) un control Image en el Form
- Te posicionas en él y con el botón derecho del ratón seleccionas la opción "Copiar" y a continuación con el mismo botón la opción "Pegar". Te preguntará si quieres crear un array de controles. Le dices que sí y le vuelves a dar a "Pegar" y así hasta la cantidad de controles que quieras poner en el formulario.
Tendrás un array de controles con el mismo nombre del primero (p.e. Image1) pero entre paréntesis aparecerá el índice del control (del cero al ene) y por ése índice te podrás referir a cada uno de ellos.

Re: Escenario
 

Muchas gracias por explicarmelo ya lo he entendido.


Por otra parte me han dicho de hacer el escenario todo mediante codigo
Algo parecido a esto
y luego ir poniendo
Espero que alguien pueda explicarmelo.

Gracias de antemano

Re: Escenario
 

en el otro tema te respondi esto.

para las imagenes. Primero definis un nombre por cada imagen, ej:

Dim Pic(0 to 5) as string 'Porque guardaremos las rutas de las imagenes

Pic(0)= "c:\Imagen0.jpg"
Pic(1)= "c:\Imagen1.jpg"
Pic(2)= "c:\Imagen2.jpg"
'etc.

Despues lo que tenes que hacer es armar la cuadricula, pero para esto tenes que tener lo que puse en el otro post, lo que pasa es que pense que sabias hacer esto por eso en el otro lo di por hecho... Creas una matriz del control image

Private Sub Form_Load()
dim x as byte

For x = 1 To 9 'Cant de casilleros = 9

Load Image1(x)
Image1(x).Visible = True

'Image(x).Picture = LoadPicture(Pic(x)) ' No me acuerda si toma variable en LoadPicture
If (x Mod 5) = 0 Then
Image1(x).Left = Image1(0).Left
Image1(x).Top = Image1(x - 1).Top + Image1(x - 1).Height
Else
Image1(x).Left = Image1(x - 1).Left + Image1(x - 1).Width
Image1(x).Top = Image1(x - 1).Top
End If
Next

End Sub

-------
Crea una matriz de control de image, (hacelo facil nombrando dos controles iguales y aceptando lo que te muestre) despues ponele borderstyle en Fixed Single y presiona F5 para que veas como queda!!!
Solo pone la ultima parte de este post. Te muestra los casilleros sin nada pero para que veas como se hace una matriz, cuando entiendas bien eso pone el resto y carga las imagenes!!