Er zijn 1 reacties in dit onderwerp

[houthalen]

dag

ik zit vast met een raar probleem.

Ik heb 2 textboxen
1 image
en paar command button om textboxen+image te opslaan en laden. De image krijgt oon de naam van de file.
Alles werkt goed. Ik wou nu een andere image toevoegen en alles opslaan en laden.
Maar het  gaat niet.
Geen error en wordt allen 1 image opgeslaan .Hier mijn code.





Code:

Private Sub load_Click()

CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
MkDir App.Path & "\DiagnoseArchief\" '
CommonDialog1.Filter = "Tekst|*.txt"
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "DiagnoseArchief"
CommonDialog1.FileName = App.Path & Slash & "DiagnoseArchief" & "\*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
tekst = ""
Do Until EOF(1)
Line Input #1, kFile
tekst = tekst & kFile & vbCrLf

Line Input #1, kFile
tekst2 = tekst2 & kFile & vbCrLf
Loop
Text1.Text = tekst
Text2.Text = tekst2

Close #1
CommonDialog1.FileName = Replace(CommonDialog1.FileName, ".txt", ".bmp")
Image1.Picture = LoadPicture(CommonDialog1.FileName)

End Sub

'save file .txt

Private Sub save_Click()
CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
On Error Resume Next ' save
Dim Slash As String
'On Error Resume Next
MkDir App.Path & "\DiagnoseArchief" ' qui ho aggiunto
On Error Resume Next
CommonDialog1.Filter = "Tekst|*.txt"
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "DiagnoseArchief"
CommonDialog1.FileName = App.Path & Slash & "DiagnoseArchief" & "\*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
SavePicture Image1.Picture, Replace(CommonDialog1.FileName, ".txt", ".bmp")
End Sub
'Hier laad ik een afb in de image
Private Sub Command1_Click()
CommonDialog1.InitDir = "c:\"
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

dan om ook de tweede image te opslaan heb ik toevoegt:

Code:

SavePicture Image2.Picture, Replace(CommonDialog1.FileName, ".txt", ".bmp")

En om ook de tweede image te laden  heb ik toevoegt

Code:

Image2.Picture = LoadPicture(CommonDialog1.FileName)

Wat doe ik verkeerd?

[houthalen]

Zelf opgelost.

Moest zo:

In load


Code:

Image1.Picture = LoadPicture(Replace(CommonDialog1.FileName, ".txt", ".bmp"))
Image2.Picture = LoadPicture(Replace(CommonDialog1.FileName, ".txt", "2.bmp"))

In save

Code:

SavePicture Image1.Picture, Replace(CommonDialog1.FileName, ".txt", ".bmp")
SavePicture Image2.Picture, Replace(CommonDialog1.FileName, ".txt", "2.bmp")

Toch bedankt aan iedereen.