PUBLIC SUB Button1_Click()
DIM img1 AS Image
DIM img2 AS Image
DIM pict AS Picture
DIM pict_tmp AS Picture
img1 = Image.Load("percorso mmagine 1")
img2 = Image.Load("percorso immagine 2")
pict = img1.copy().Picture
Draw.Begin(pict)
pict_tmp = img2.copy().Picture
Draw.Picture(pict_tmp, 0, 0)
Draw.End
'nella picture pict ora hai la sovrapposizione di img2 su img1
' logicamente img2 deve essere un immagine trasparente
END
questo per la sovrapposizione di due picture
prova anche così:
SUB immagine(immagine AS String, nome AS String, big AS Boolean)
DIM img AS Image
DIM pictureData AS String
DIM scale AS Float
DIM pict AS Picture
DIM temporary AS Image
img = NEW Image
img = Image.Load(immagine)
IF img.Width > thumbSize OR img.Height > thumbSize THEN
img = img.Stretch(thumbSize, thumbSize, TRUE)
END IF
pict = img.copy().Picture
fmain.dir1.Add(NOME, NOME, pict)
IF big = TRUE THEN WAIT 1
io di solito le immagini le carico tutte in memoria all' avvio gia nelle dimensioni che mi occorrono e poi le utilizzo all' occorenza.
mi è capitato di usate più di 100 immagini senza alcun problema.
ps. prima ti ho chiesto se usavi gtk o qt perchè fino a qualche tempo fa ho riscontrato consumi enormi di memoria in progetti che usavano immagini , con le librerie gtk.
non ho verificato se la cosa sia ancora cosi per le nuive versioni di gambas ..se puoi usa le qt.