[VB6] Salvare e poi aprire i file

[stejano]

il codice è già scritto nella pagina 1 manca la funzione save...ho capito che prima scegli il nome e poi lo salvi......ok.


comunque ora faccio un po' di prove vediamo se ho capito meglio......se puoi però intanto mi scrivi il codice del save....grazie.i nomi dalli te a muzzo.....

[oregon]

Ma cosa devi salvare di preciso?

[stejano]

facilissimo.....col mouse sul form( di backcolor bianco) traccio dei disegni...delle righe.....voglio salvare il disegno...

[MdE2005]

Ciao stejano, secondo me ti converrebbe disegnare invece che in un form direttamente in una imagebox, che comprenda tutto la finestra e magari con lo sfondo bianco: in questa maniera puoi salvare usando la funzione suggeritati da oregon.

[oregon]

Per salvare il form dopo averci disegnato, imposta la proprieta'

Autoredraw = true

e usa l'istruzione

SavePicture Form1.Image, NomeFile

La variabile NomeFile la devi assegnare tramite l'uso della CommonDialog ... chiaro?

[pprllo]

Aldilà del discorso, siccome i disegni che fa da quel che ho capito sono linee, non gli converrebbe salvarli sotto formato di file vettoriale, in modo da risparmiare un botto di spazio ? I BMP non sono esattamente la quintessenza della leggerezza come formato.

[stejano]

Private Sub mnusalva_Click()
With CommonDialog1
.DialogTitle = "selezionare destinazione file"
.Filter = "File Immagine Bitmap (*.BMP)|*.BMP| File Jpeg (*.JPG)|*.JPG|"
.FilterIndex = 1
.FileName = ste
.ShowSave
SavePicture Form1.Image, ste
end with
end sub


ditemi dov'è l'errore.....a me non va

[mardok30]

Prova a mettere:

SavePicture Form1.Image, .FileName

Immagino(spero) che "Ste" sia una variabile che contenga il nome del file, però per salvare devi mettere tutto il percorso del file, perciò prova con .FileName

[oregon]

Originariamente inviato da stejano
Private Sub mnusalva_Click()
With CommonDialog1
.DialogTitle = "selezionare destinazione file"
.Filter = "File Immagine Bitmap (*.BMP)|*.BMP| File Jpeg (*.JPG)|*.JPG|"
.FilterIndex = 1
.FileName = ste
.ShowSave
SavePicture Form1.Image, ste
end with
end sub

Scusa ... ma, per logica ... questa linea

.FileName = ste

cosa vuol dire per te?

[stejano]

il nome del file è uguale a ste...