[VB5/VB6] Salvare una Picture

[maz85]

So che per salvare una picture si può usare il comando savepicture immagine,percorso.
Però se su una picture faccio paintpicture per rappresentare altre immagini caricate su controlli picture e image, il file salvato è vuoto.

Conoscete un medoto per salvare su file il contenuto di una picture che siano pure controlli o immagini disegnate con il paintpicture?

[LMondi]

In questa discussione trovi un esempio che dovrebbe soddisfare le tue esigenze.

[pierabo]

Originariamente inviato da maz85
So che per salvare una picture si può usare il comando savepicture immagine,percorso.
Però se su una picture faccio paintpicture per rappresentare altre immagini caricate su controlli picture e image, il file salvato è vuoto.

Conoscete un medoto per salvare su file il contenuto di una picture che siano pure controlli o immagini disegnate con il paintpicture?

Ciao, in questo banale esempio disegni un'immagine contenuta in Image1 su Picture1.
Poi salvi Picture1 in immagine.bmp.
Poi ricarichi il file in Picture2

   Picture1.ScaleMode = vbPixels
    Picture1.AutoRedraw = True

    Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
    SavePicture Picture1.Image, App.path & "\immagine.BMP"

    Set Picture2.Picture = LoadPicture(App.path & "\immagine.BMP")

    Kill App.path & "\immagine.BMP"