Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 12-feb-2008, 11:13   #1 (permalink)
Kraigs ha deshabilitado el karma
 
Fecha de Ingreso: enero-2008
Ubicación: España (Barcelona)
Mensajes: 12
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

Código:
Image1(0).Picture = LoadPicture("c:\Imagen1.jpg")
Image1(1).Picture = LoadPicture("c:\Imagen2.jpg")
Me han dicho de poner

Código:
DIM T(4,5) AS INTEGER
o algo parecido para hacerlo pero no consigo resolverlo.

Espero que alguien pueda ayudarme.

De todas formas gracias de antemano.
Kraigs está desconectado   Responder Citando
Antiguo 12-feb-2008, 12:36   #2 (permalink)
Avellaneda tiene algunos puntos positivos de karma
 
Avatar de Avellaneda
 
Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 792
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.
Avellaneda está desconectado   Responder Citando
Antiguo 14-feb-2008, 05:11   #3 (permalink)
Kraigs ha deshabilitado el karma
 
Fecha de Ingreso: enero-2008
Ubicación: España (Barcelona)
Mensajes: 12
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
Código:
DIM T(10,10) AS INTEGER
y luego ir poniendo
Código:
T(0,0) = 0
T(0,1) = 1
Espero que alguien pueda explicarmelo.

Gracias de antemano
Kraigs está desconectado   Responder Citando
Antiguo 14-feb-2008, 08:59   #4 (permalink)
piojoman ha deshabilitado el karma
 
Avatar de piojoman
 
Fecha de Ingreso: enero-2005
Ubicación: Argentina
Mensajes: 193
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!!
piojoman está desconectado   Responder Citando
Respuesta

No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 17:50.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93