Tengo una variable declarada como image a quien debo pasarle el valor de unos images verdaderos; el problema resulta cuando necesito crear objetos en tiempo de ejecución con el nombre de esa variable.
Supongamos que la variable se llama Terreno. ¿Cómo lo hago y como le puedo pasar el valor de otros images.

Código:

Dim Terreno as Image
Load Terreno(Terreno.count)

Saludos

Set Terreno(Terreno.Count).Picture = LoadPicture(ruta)

Saludos

Cómo soluciono esto?

Código:

For i = 1 To Terreno.Count
 On Error Resume Next
 Unload Terreno(i)
Next i

Load Terreno(Terreno.Count)

Edited by: cdesseno

No podés borrar un elemento de una matriz mientras haya otro mayor, por lo que deberás cambiar el sentido de tu bucle invirtiendo los intervalos y agregando el Step -1

Saludos.

El error al que me refiero está en:
Terreno.Count-Method or data member not found- ¿Puede ser porque no haya creado la matriz de la variable? ¿Cómo lo hago?

El error es por eso que te dice el vb, Terreno NO es una matriz

debes declararlas asi:

Dim Terreno () as Image

Pero cuando la asignás, debés hacerlo como te dijo Leandro, Con SET, y tambén debés utilizar redim y Redim Preseve para el array de image, dependde de lo que quieras hacer. NO PODES UTILIZAR Load y Unload

Cdesseno. te respondo el Mensaje privado siguiendo el hilo, una por que no soy un genio en vb, y lo mas importante es por que al hacerlo en el foro, tenés muchas mas opciones de encontrar la respuesta, incluso que le sirva a laguien que busca lo mismo

"Lo intenté, pero no pude: me podés pasar este código pasado en vez de un objeto de verdad (imgPasto1) a un matriz de variables del tipo image llamada Terreno."

Código:

Y = Y - 10.5
X = X - 10.5
Load imgPasto1(imgPasto1.Count)

'Cor X
b = X / 21
b = Format(b, "####")
On Error Resume Next
b = b + 0.05
b = b * 21
imgPasto1(imgPasto1.Count - 1).Left = b
'Cor Y
a = Y / 21
a = Format(a, "####")
On Error Resume Next
a = a + 0.05
a = a * 21
imgPasto1(imgPasto1.Count - 1).Top = a
imgPasto1(imgPasto1.Count - 1).Visible = True
Historial = Historial & b & "-" & a & " Pasto1" & vbNewLine

..sigo sin entender porque querés usar un array de tipo Image

Si queres usar un array de tipo Image, en ves de utilizar Load y unload a partir de nuamatriz de controles creado en tiempo de ejecución, debes usar Set para asignación:

Dim MAtrizImage(10) as Image

Set MAtrizImage(indice) = CualquierImage

para eliminación

Set MAtrizImage(indice) = nothing

Si el array es dinámico debes utilizar Redim y REdimPreserve si te interesa que la matriz sea persistente

Aclara ese punto

saludos

Otro ejemplo haber si lo podés adaptar

Código:

Dim LaMatrizDeImage() As Image

'Asignación

ReDim LaMatrizDeImage(imgPasto1.Count)

For i = 0 To imgPasto1.Count - 1

Set LaMatrizDeImage(i) = imgPasto1(i)

Next


' Ejemplo de Manipulación

For i = LBound(LaMatrizDeImage) To UBound(LaMatrizDeImage) - 1

LaMatrizDeImage(i).BorderStyle = 1
LaMatrizDeImage(i).Visible = True
LaMatrizDeImage(i).Move 0, LaMatrizDeImage(i).Height * i
Next

Exit Sub

'Eliminación de un solo elemento de la matriz

If Not LaMatrizDeImage(1) Is Nothing Then
Set LaMatrizDeImage(1) = Nothing
End If

'Eliminación de toda la matriz

Erase LaMatrizDeImage

saludos

Iniciado por Luciano

..sigo sin entender porque querés usar un array de tipo Image

Es que tengo varios "Terrenos" (pasto, asfalto, etc.) y cuando lo hice puse el de pasto como ejemplo.
Saludos y muchas gracias.

Edited by: cdesseno

A ver si entiendo, vos tenes una matriz creada llamada imgPasto1 ..a partir de un elemeto creado en tiempo de diseño cargadas con Load

..y queres crear 3 matrices (de tipo image) e igularlas a la matriz de controles para tener copias ??

Problema solucionado de una forma mucho más fácil, agregando otro image real, en vez de hacerlo a través de una variable; no se me había ocurrido. Gracias igual Luciano.