Ver Mensaje Individual
  #2 (permalink)  
Antiguo 14/03/2007, 08:03
Avatar de tazzito
tazzito
 
Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 17 años, 9 meses
Puntos: 2
Re: Matriz de controles

Komodo,

veamos tienes que tener un control picture y label con la propieda indice en 0 (de ambos), ahora para crear una matriz de controles es
x=0
do until tuRecordsetdeDatos.eof
x=x+1
Load Me.PictMaestro(x + 1)
Me.PictMaestro(x + 1).visible=true
Load Me.LBLMaestro(x + 1)
Me.LBLMaestro(x + 1).visible=true

ME.PictMaestro.Picture= LoadPicture(Ruta & "\" & TuRecurdsetDeDatos!NombreImagen)
Me.LBLMaestro(x + 1).Caption=TuRecurdsetDeDatos!NombreImagen

TuRecurdsetDeDatos.movenext
loop
TotalObjetosCreados = x

ahora tendra que ingeniartelas tu para posicionar cada picture en otra posicion, por que por defecto aparecera en la misma de la matriz. seria mas menos algo asi (ejemplo para crear un picture abajo de otro cada 100 Pixceles
me.PictMaestro(X).Top = x*100


al momento de destruirlos es algo asi mas menos
for x= 1 to TotalObjetosCreados
Unload Me.PictMaestro(x)
Unload Me.lblMaestro(x)
Next


mmm es una sugerencia, yo nunca trabaje con pict en matriz de controles pero si otros tipos y trabajandolo asi nunca tuve problemas.