afbeelding load/save in open file

[satriano]

dag

ik heb een programmatje geschreven om een file te laden/opslan (met naam) naar disk .

Werkt alles goed. Ik kan de inhoud van 2 textboxen opslaan met naam, en daarna laden.

Echter il wil nu ook een afbelding opslaan samen die 2 textboxen, om daarna als ik die file open , samen met de teksten in de textboxen,, ook de bijhorend afbeelding te doen verschijnen in een imagebox.

Ik heb geprobeerd, maar ik kan tot nu toe die afbelding met vaste naam opslaan. Hoe kan ik ook een variabel toekennen, zoals met de textboxen, zodat de afbeelding opgeslaat wordt in dezelfde file ?

Hierbij mijn code.
Private Sub Command1_Click()

CommonDialog1.Filter = "TEKST|*.txt*"
CommonDialog1.ShowOpen
Call LoadText(CommonDialog1.filename, Text1)
End Sub

Private Sub LoadText(file As String, Text1 As TextBox)

Dim H As Integer
Dim L As String
H = FreeFile
Open file For Input As #H
While Not EOF(H)
Line Input #H, L
Text1.Text = Text1.Text & L & vbCrLf
Line Input #H, L
Text2.Text = Text2.Text & L & vbCrLf
Wend
Close #H
Image1.Picture = LoadPicture("c:\Immagine1.bmp")
End Sub

Private Sub Command2_Click()

CommonDialog1.Filter = "TEKST|*.txt*"
CommonDialog1.ShowSave
Call SaveText(CommonDialog1.filename, Text1)

End Sub

Public Sub SaveText(file As String, Text1 As TextBox)

file = file + ".txt"

Open file For Output As #2
Print #2, Text1.Text
Print #2, Text2.Text
Close #2
SavePicture Image1.Picture, "C:\Immagine1.bmp"
End Sub




Private Sub Image1_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.filename)
End Sub


Dus ik zou willen dat de afbeelding samen met de file van de textboxen word opgeslagen
dank u

 

[beheer25]

Tenzij je een zipfile gebruikt gaat het je niet lukken om plette tekst en een plaatje in 1 bestand te krijgen. Een plaatje is een binair bestand, als je daar tekst aan toevoegd is het plaatje corrupt.

Als je de naam van het bestand wil wijzigen kun je dat doen door i.p.v. "C:\Immagine1.bmp" een string variabele waarin de gewenste naam van het bestand staat op te geven.


Grtz,