[VB6] Salvare e poi aprire i file

[stejano]

come faccio a salvare ed ad aprire i file fatti dal mio programma in visual basic 6?
inoltre riformulo una domanda fatta ....come decodifico dei file di cui non ho programmi per aprirli?

[Boolean]

immagino che il tuo programma sia talmente rinomato e famoso da non necessitare di ulteriori spiegazioni sul tipo di file che produce...
sicuramente arriveranno un sacco di risposte illuminanti

per la seconda domanda, suppongo tu debba aprire un altro Thread.

Boolean

[stejano]

aahaha giUsto scusa.....ho fatto un programma con cui disegni a mano libera....lo faccio stampare, ma mi piacerebbe salvare e poi riaprire i file.....che dite?

[Boolean]

il disegno alla fine è una bitmap, immagino...

se è così, e il disegno risiede in una picturebox, basta usare il metodo SavePicture di VB:

SavePicture Picture1.Picture, "C:\TuaImmagine.bmp"

tieni conto che il salvataggio avviene sempre e solo in BMP, qualsiasi sia l'estensione che metti al nome del file.

Boolean

[MdE2005]

Salvalo ad esempio come *bmp, poi per aprirlo metti una picturebox oppure una imagebox per tutto il form..però bisognerebbe vedere come hai impostato tutto..
quindi che metodo utilizzi per disegnare..
ciao

[stejano]

già ma la directory così mi sa che è fissa.....io la voglio scegliere con la tipica finestra di salvataggio tipo windows.....
ho provato a metterla nel programma proprio ora ma non funge...

[stejano]

Option Explicit
Dim colore As String

Private Sub Command1_Click()
Dim a As String
a = MsgBox("costruito da stejano", , "stejano")
End
End Sub

Private Sub Command2_Click()
Form1.PrintForm
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo errorecolore
If Button = 1 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), colore
End If
If Button = 2 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(15)
End If
Exit Sub
errorecolore:
MsgBox "prima scegli un colore per scrivere!"
Exit Sub







End Sub

Private Sub mnuapri_Click()


End Sub

Private Sub mnucambiacolore_Click()

CommonDialog1.Action = 3
colore = CommonDialog1.Color

End Sub

Private Sub mnuesci_Click()
MsgBox "costruito da stejano"
End
End Sub

Private Sub mnusalva_Click()




End Sub

Private Sub mnustampa_Click()
Form1.PrintForm


End Sub

Private Sub mnusvuota_Click()
Form1.Cls

End Sub



questo è il codice ditemi voi.....mancano il salva e l'apri

[MdE2005]

per aprire:
commondialog1.showopen
'qui puoi mettere tutte le proprietà del commondialog che vuoi
commondialog.showsave
'anche qui con tutto quello che vuoi

[stejano]

per capire meglio..... cosa intendi per tutte le proprietà che vuoi...proprietà?in che senso ...
scusa ma non sono molto pratico.....ma faccio passi da gigante...

[MdE2005]

With CommonDialog1
.DialogTitle = "Apri file....." & App.EXEName
.Filter = "File Immagine Bitmap (*.BMP)|*.BMP| File Jpeg (*.JPG)|*.JPG|"
.FilterIndex = 1
.ShowOpen
End With