Springen naar inhoud


- - - - -
VB6

Ik Kan Geen Tweede Image Opslaan(Vb6)



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 179 berichten
    Laatst bezocht gisteren, 13:12

Geplaatst op 19 oktober 2021 - 10:06

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?

#2 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 179 berichten
    Laatst bezocht gisteren, 13:12

Geplaatst op 20 oktober 2021 - 15:03

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.





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)