Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Imagenes en miniatura
Message
General information
Forum:
Visual FoxPro
Category:
ActiveVFP
Miscellaneous
Thread ID:
00810027
Message ID:
00810343
Views:
13
Hola, Dante.

>Esta bien lo que dices, pero como hago para tener varias imagenes a la vez, osea en un solo "contenedor". Creo que lo que vos me dices es para ver una sola imagen a la vez.

Tienes que poner tantos controles Image como imagenes quieras mostrar. Si esto tiene que ser dinámico, puedes crearlos dentro de un loop.
local lnFoto as Integer, loFoto as object

select Fotos
scan while idPersona = lnIdPersona
   
   lnFoto = lnFoto + 1
   thisform.AddObject("Image"+transform(lnFoto),"Image")
   loFoto = evaluate( "Image"+transform(lnFoto) )
   loFoto.Stretch = 1 && Isometric
   loFoto.Height = 100
   loFoto.Width = 100
   loFoto.Top = 10 + ( lnFoto-1 * 120 )
   loFoto.Picture = Fotos.PathName
   loFoto.Visible = .t.
endscan
Este código está escrito directamente aquí, así que puede tener fallas, pero creo que se entiende la idea. Vas agregando controles Image y posicionándolos uno abajo del otro. Para disparar el formulario que muestre la misma imagen a tamaño completo lo ideal sería ir agregando controles de una subclase tuya que implemente esto en el evento Click.

Espero que te sirva. No dudes en consultarme si necesitas más ayuda,
Previous
Reply
Map
View

Click here to load this message in the networking platform