Salvare picturebox in DB Access in VB6

[p73]

Scusate sapreste dirmi come faccio a salvare in un DB Access l'immagine contenuta in una picturebox?

L'immagine contenuta nella picturebox è un grafico di codice a barre che creo a run time.


--------------------------
Linguaggio: VB6
DB: Access 2000
--------------------------

Grazie!

[LMondi]

Nel DB Tipo di dati "Oggetto OLE".
Ma guarda che porta via molto spazio.
Forse ti converrebbe salvare la Pic su disco ad esempio:

'Salva l'immagine del Grafico:
        FrmContoE3S.ImageECO.Refresh
        FrmContoE3S.MSChartEC.EditCopy
        FrmContoE3S.ImageECO.Picture = Clipboard.GetData
        SavePicture FrmContoE3S.ImageECO.Picture, App.Path & "\Dati\Grafici\MSChartEC.bmp"

e poi caricarla al momento opportuno.

[p73]

Ok, scusa ma mi potresti un po spiegare il codice?
Cioè:

MSChartEC cos'è?

Io ho la picturebox che chiamo "lavagna".

Cercando di adattare il tuo codice...

<code>
--------------------------------------------------
lavagna.Refresh
code.editcopy
lavagna.Picture = Clipboard.GetData
SavePicture lavagna.Picture, App.Path & "code.bmp"
--------------------------------------------------
</code>

...tu mi insegni che mi darà un errore nella seconda riga.

Devo forse dichiarare qualcosa... :master:

[p73]

Ho provato ad inserire questo codice...

<code>
----------------------------------------------
Dim sFile As String

sFile = App.Path & "\testsave.bmp"

SavePicture lavagna.Image, sFile
----------------------------------------------
</code>

...ma mi salva soltanto l'immagine della picturebox vuota.

[LMondi]

Dunque "MSChartEC" è l'oggetto MSChart con nome EC e si tratta di un grafico ottenuto con il predetto oggetto.
Se tu non lo usi il codice sopra descritto non funziona.
Al suo posto usa:

Private Sub Command1_Click()
        Form1.ImageLavagna.Refresh
        Clipboard.SetData ImageLavagna, vbCFBitmap
        Form1.ImageLavagna.Picture = Clipboard.GetData
        SavePicture ImageLavagna.Picture, App.Path & "\ImageLavagna.bmp"
End Sub

Così funziona e l'oggetto Image si chiama "Lavagna"
Già che ci sono ti posto anche il codice per aprire l'immagine:

Private Sub CmdCarica_Click()
        
        On Error Resume Next
    'Cancella il controllo Image:
        ImageLavagna.Picture = LoadPicture()
        ImageLavagna.Stretch = True
   'Imposta l'altezza e la larghezza dell'immagine:
        With ImageLavagna
            .Height = 3000
            .Width = 6000
        End With
   'Carica l'immagine:
        Set ImageLavagna.Picture = _
        LoadPicture(App.Path & "\ImageLavagna.bmp")
End Sub

[p73]

Null...

Non mi funza!!!

Cioè il codice fa quello che deve fare....ma l'immagine che mi salva è l'immagine della picturebox vuota....non mi salva il codice a barre che ho generato...

...non so più dove sbattere la....

[LMondi]

Dunque se la tua immagine "ImageLavagna.bmp" è una ".bmp" Non può non funzionare.
Prima di postare il codice l'ho provato! Forse l'immagine ha un'altra estensione? Fai attenzione perchè salva "Clipboard.SetData ImageLavagna, vbCFBitmap" con l'estensione .bmp
Prova con un'altra immagine e vedi cosa succede.
Fammi sapere.

[p73]

Il fatto è che funziona, ma non con l'immagine che voglio io!

Cioè la picturebox ("lavagna") è vuota, quindi non esiste alcuna immagine. Dopodichè io metto il codice di 13 cifre in una textbox ("txtEAN13"), clicco su un pulsante ("cmdCrea"), e la picturebox("lavagna") mi visualizza il grafico del codice a barre creato tramite un'apposita funzione. Da questo momento, se io voglio salvare l'immagine del grafico codice a barre contenuto nella picturebox("lavagna"), con questo codice non mi funziona...ma funziona con tutte le immagini esistenti al mondooo...

Grazie per la tua pazienza LMondi, e confido nel tuo prezioso aiuto, (..mi sa che per me è l'ultima spiaggia...)

[LMondi]

Ciò che non ho capito è quello che ottieni dall'elaborazione "codice di 13 cifre in una textbox ("txtEAN13"), clicco su un pulsante ("cmdCrea"), e la picturebox("lavagna") mi visualizza il grafico del codice a barre" è un'immagime Bitmap?
Se non è così la devi trasformare in Bitmap.

Ad esempio se fosse pic:

Private Sub Command1_Click()
      
      Pic1.AutoSize = -1

'Carica l'immagine nella PictureBox
      Pic1.Picture = LoadPicture("D:\Elaborazioni\....\ICONE\Printer2.ico")
      Pic2.Picture = LoadPicture("D:\Elaborazioni\.....\ICONE\Paper.ico")
      'Pic3.Picture = LoadPicture
'e la salva nei formati BMP e JPG
      
      SavePicture Pic1.Image, ("D:\Elaborazioni\.....\ICONE\Printer2.bmp")
      SavePicture Pic2.Image, ("D:\Elaborazioni\.....\ICONE\Paper.bmp")
      'SavePicture Pic3.Image, ("D:\Elaborazioni\VBEsempi\IconeNelMenu\IconeProva\DispIco.bmp")
   .....   
      'SavePicture Picture1.Image, "prova.jpg"
End Sub

[p73]

Ok, quello che visualizzo nella picturebox non è un'immagine esistente sul disco, bensi un grafico creato ad hoc in esecuzione, esempio:


||| || ||||| |||| | |||||| ||| |||||
12 4352 545 432 1

Quindi non essendo esistente, mi sa che dovrei trasformare questo grafico in bitmap e poi salvarlo sul disco.

Comunque se per te non è troppo, ti mando il codice completo con la funzione che crea il codice a barre...così dai un'occhiata..se magari mi dai l'email...perchè postarlo quì mi prenderei 4 o 5 paginette di forum...
Naturalmente se ti è possibile..grazie ancora per la tua disponibilità.

jhonnystecchinoCHIOCCIOLAkatamail.com