Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
L'utente GRG a quanto ho capito ha risolto.
Io seguendo le istruzioni nella discussione non riesco ad avere lo stesso risultato.
Riepilogando ho 2 picturebox , picture1, picture2. La picture2 è contenuta dentro la picture.
il codice usato da me è il seguente:
Private Sub Command1_Click()
SavePicture Picture1.Image, "C:\Users\rober\Documents\Prova.bmp"
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
End Sub
in questo modo salvo solo il contenuto della picture1, mentre io devo salvare le immagini contenute nelle due picture, dove la picture2 deve essere sovrapposta alla picture1
Allego file immagine di come deve essere salvata.
In attesa di risposta saluti
Mi sembrava strano, prima di dirti che doveva funzionare, ho fatto una prova e funziona.
Non ho idea di dove puoi sbagliare, allegato progetto funzionante.
Le immagini vengono caricate e salvate nel percorso del progetto.
grazie per la risposta, si l'esempio che mi hai fatto è funzionante. Nel mio caso invece la posizione della picture2 nella picture1 dipendeva da .left e.top che gli venivano date dopo un calcolo. In questo modo viene salvato solo il contenuto della picture.
Ho adattato tutto al tuo esempio adesso dopo il calcolo delle coordinate la picture2 viene inserita nella picture1, diciamo che va bene , solo una cosa se mi puoi aiutare , ad ogni calcolo corrispondono delle coordinate che posizionano la picture2 , cosi come è impostato nel tuo esempio inserisce più immagini, mentre io voglio che ad ogni calcolo la prima immagine sia cancellata e inserita la nuova con a fianco i valori contenuti nella label1.
Private Sub picture1_Click()
Picture1.Picture = LoadPicture(App.Path & "\602-633Mhz.jpg")
Picture1.PaintPicture Picture2.Picture, PosizioneX, PosizioneY
End Sub
risolto il posizionamento della picture2 , io ho fatto cosi :ad ogni cambiamento delle coordinate , dopo ogni calcolo richiama immagine originale e inserisce nuova picture2 . Mi manca di inserire a fianco della picture2 il valore contenuto nella label
Sembra che funzioni, una cosa che mi sono accorto è che se l'immagine che richiamo con il loadpicture è una gif che ha lo sfondo trasparente quando la inserisco nella picture1 perde la trasparenza, come si può fare per non perdere la trasparenza?
Se non ricordo male bisogna gestirsi la trasparenza in proprio disegnado l'immagine 2 sulla picturebox1 pixel a pixel usando la proprietà DrawMode adeguata. (dovresti cercare un frammento di codice, o guardare Function BitBlt Lib "gdi32")
Mi dispiace.
Ho scritto due righe orribili, se non trovi nient'altro, funzionano.
Ti informo che in VB .Net, la PictureBox, ha due livelli, puoi caricare nel BackGround l'immagine di fondo e in Image, una PNG a 16 milioni di colori compreso canale alpha, per una trasparenza con antialias perfetta.
Visto che in VB6, stai imparando, tanto vale imparare in VB .Net.
Grazie carlo per la tua risposta, mi sarà utile per le volte che dovrò usare la trasparenza ora la provo. nel frattempo ho trovato una soluzione più semplice, sto creando un programma che si chiama myPersonalTrainer ed una delle tante cose che fà misura il somatotipo , quindi quello che mi serviva è calcolate le coordinate nell'immagine del grafico contenute nella picturebox, mi doveva apparire un punto alle giuste coordinate con le coordinate scritte ed ho risolto così:
fineagles1 ha allegato un file: Senza titolo-1.jpg (42185 bytes)
Carlo ha allegato un file: PictureInPicture.zip (444945 bytes)
