Matriz picturebox con consulta sql

[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