Crear y ordenar en tiempo de ejecucion

[E N T E R]

Hola amigos del foro. Estoy preparando un formulario con un control Picture que quiero crear y ordenar según le indique la columna y la cantidad que tiene que crear.

[pedroesca]

y en que se te podría ser útil estimado???

[E N T E R]

y en que se te podría ser útil estimado???

Quiero cargar dentro de cada picture creado una imagen.

[pedroesca]

Perfecto! vamos de lo "general a lo particular". En primer lugar, desde donde piensas cargar esas  imágenes?? desde archivos de imágenes comunes alojados en alguna carpeta del disco??? o desde una base de Datos?

[E N T E R]

Desde una carpeta mi amigo, con la funciona LoadPicture

[E N T E R]

Encontre este que sirve para crear las columnas. en este codigo me agrega 5 picture ahora como ago para que se baje hacia abajo con la misma posiciones.

Private Sub Form_Load()
   
    For i = 1 To 4
   
        Load Picture1(Picture1.Count)
        a = Picture1.Count - 1
        Picture1(a).Visible = True
        Picture1(a).Height = Picture1(a - 1).Height
        Picture1(a).Width = Picture1(a - 1).Width
        Picture1(a).Left = Picture1(a - 1).Left + Picture1(a - 1).Width + 100
        Picture1(a).Top = Picture1(a - 1).Top
       
    Next i
   
End Sub

[Bazooka]

Hola amigo Enter creo que esto que te preparé te debería servir! con algunos arreglos seguro lo adaptarás a tu codigo:

Código: [Seleccionar]

Private Sub Command1_Click()
    Call CrearGrilla
End Sub


Private Sub CrearGrilla()
Dim tmpTop 'variable temporal
Dim tmpLeft 'variable temporal
Dim Espacio 'variable que controla la separacion de los controles

    Espacio = 200

    tmpTop = picture1(0).Top 'asiganamos la posición top del control con index 0 de la matriz
    tmpLeft = picture1(0).Width + Espacio 'asiganamos la posición left + un espaciado del control con index 0 de la matriz
   
    For cant = 1 To txCantidad.Text Step Val(txColumnas)
        For col = 1 To Val(txColumnas.Text)
           
            Load picture1(col + (cant - 1))
            With picture1(col + (cant - 1))
                .Visible = True
                .Left = tmpLeft * (col)
                .Top = tmpTop
            End With
           
            If col + (cant - 1) = Val(txCantidad.Text) Then Exit For
        Next
         tmpTop = tmpTop + picture1(0).Height + Espacio
    Next
End Sub

Saludos desde Argentina!!

[pedroesca]

Hola E N T E R, mis disculpas por no haberte respondido mas ayer, me surgió un inconveniente. Paso a lo que nos comPETE:
Hace un tiempo había hecho algo simillar a lo planteado por tí, pero creaba los pictures en lugares predefinidos (no en columnas y filas), así como ves a continuación:

Código: [Seleccionar]

If Rs.RecordCount > 0 Then
        Do While Not Rs.EOF
            Cantidad = Cantidad + 1
            Load imageICON(imageICON.Count)
            imageICON(imageICON.UBound).Tag = Rs!IdPunto
            imageICON(imageICON.UBound).Move Rs!CoordX, Rs!CoordY
            imageICON(imageICON.UBound).Stretch = True
            imageICON(imageICON.UBound).Visible = True
            imageICON(imageICON.UBound).Picture = Me.imageICON(0).Picture
            Rs.MoveNext
        Loop
    End If
Y la imagen la cargaba así

Código: [Seleccionar]

Me.imageICON(0).Picture = LoadPicture(App.Path & "\IconCAPAS\" & Rs!Icono)