Ver Mensaje Individual
  #5 (permalink)  
Antiguo 23/11/2010, 09:34
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 8 meses
Puntos: 53
Respuesta: Matriz picturebox con consulta sql

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

Código vb:
Ver original
  1. Private Sub CrearMatriz(Lineas As Single, Columnas As Single)
  2.   Dim Linea As Single, Columna As Single, Indice As Integer
  3.   ' Borramos previamente los Pictures creados en tiempo de ejecucion
  4.  For Indice = 1 To Picture1.Count - 1
  5.     Unload Picture1(Indice)
  6.   Next
  7.   ' Efectuamos el Bucle de creación de la matriz
  8.  Indice = 0
  9.   For Linea = 1 To Lineas
  10.   For Columna = 1 To Columnas
  11.     If Indice > 0 Then Load Picture1(Indice)
  12.     With Picture1(Indice)
  13.       .Move Picture1(0).Left + (Columna - 1) * .Width, Picture1(0).Top + (Linea - 1) * .Height
  14.       .Visible = True
  15.     End With
  16.     Indice = Indice + 1
  17.   Next
  18.   Next
  19. 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
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...