Matriz picturebox con consulta sql

[rpm]

Buenos días tengo una pregunta, me gustaria poder realizar lo siguiente:

Tengo 20 fotos y me gustaria mostrarlas en picturebox pero 1 por foto estas me gustarian que quedarán 4 lineas de 5 columnas, por ejemplo, pero no se existe la posibilidad de hacer esto, ya que estas fotos se sacaran de una consulta de sql y por medio de un recordset se muestren, lo que hice fue ponerlo en un solo picturebox y ahi con 2 botones navego, pero pues me gustaria saber si se puede o no?, muchas gracias de antemano.

[rpm]

Tema Cerrado, solucionado gracias

[DexterGlue]

Hola rpm

Si pudieras compartir la forma como lo solucionastes, para compartir el conocimiento con el foro

Saludes
Gracias

[rpm]

Me adelante, claro que cuando acabe lo pondre en el foro, pero el problema es que ya me salen los picturebox, pero no puedo lograr ponerlos en columnas ejemplo 4 lineas de 5 columnas, ahi me atore.

[erbuson]

Hola, mira si te sirve esta rutina para la creación de los Pictures:

Código vb:

Private Sub CrearMatriz(Lineas As Single, Columnas As Single)
  Dim Linea As Single, Columna As Single, Indice As Integer
  ' Borramos previamente los Pictures creados en tiempo de ejecucion
  For Indice = 1 To Picture1.Count - 1
    Unload Picture1(Indice)
  Next
  ' Efectuamos el Bucle de creación de la matriz
  Indice = 0
  For Linea = 1 To Lineas
  For Columna = 1 To Columnas
    If Indice > 0 Then Load Picture1(Indice)
    With Picture1(Indice)
      .Move Picture1(0).Left + (Columna - 1) * .Width, Picture1(0).Top + (Linea - 1) * .Height
      .Visible = True
    End With
    Indice = Indice + 1
  Next
  Next
End Sub
 

Para probarla, simplemente crea un proyecto con un Picture1(0) y ejecuta desde donde tu quieras

CrearMatriz 4, 5

Tal como está preparada, simplemente te creará la matriz pero evidentemente puede mejorarse, por ejemplo indicándole el Top, Left inicial, e incluso hacerla genérica para que le mandes el Pic que va a crear, puede servir también para crear una matriz de Labels, TextBox, etc,

Saludos

[erbuson]

Bueno, aqui está la rutina generica para la creación de una matriz de objetos:

Código vb:

Public Sub CrearMatriz(Objeto As Object, Filas As Single, Columnas As Single, Optional Top As Single = -1, Optional Left As Single = -1)
  Dim Linea As Single, Columna As Single, Indice As Integer
  ' Borramos previamente los posibles Objetos creados en tiempo de ejecucion
  For Indice = 1 To Objeto.Count - 1
    Unload Objeto(Indice)
  Next
  ' Situamos el primero en la posición deseada, si así se le indica
  If Top <> -1 Then Objeto(0).Top = Top
  If Left <> -1 Then Objeto(0).Left = Left
  ' Efectuamos el Bucle de creación de la matriz
  Indice = 0
  For Linea = 1 To Filas
  For Columna = 1 To Columnas
    If Indice > 0 Then Load Objeto(Indice)
    With Objeto(Indice)
      .Move Objeto(0).Left + (Columna - 1) * .Width, Objeto(0).Top + (Linea - 1) * .Height
      .Visible = True
    End With
    Indice = Indice + 1
  Next
  Next
End Sub
 

Como puedes ver, tiene dos parámetros opcionales para cambiar el Top y Left a una posición diferente de la posición ocupada en tiempo de diseño.

Saludos

[rpm]

Muchas gracias funciona perfecto, me acomoda los controles y todo bien
pero yo jalo las fotos de un recordset y cuando lo trato de ejecutar, me cierra el vb, yo lo hago asi:

Set rs6 = New ADODB.Recordset
rs6.Open ("select campo from tabla"), conexion, adOpenStatic, adLockOptimistic

X = 0
Do Until rs6.EOF
X = X + 1
Load Picture1(X)
With Picture1(X)
.Top = Picture1(X - 1).Top + 1600
.Visible = True
.Picture = LoadPicture("C:\" & rs6!campo)
rs6.MoveNext
End With
Loop

ojala que me puedas ayudar

[rpm]

Sigo buscando, aviso que pasa