Ver Mensaje Individual
  #6 (permalink)  
Antiguo 23/11/2010, 09:42
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

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

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