Een image opslaan in filetext met hetzelfde naam van de file.

Status
Niet open voor verdere reacties.
Nu wordt de image goed opgeslagen met een BMP extensie.
Dus die wordt bv Test.bmp
De probleem is met loaden
Wat ik niet begrijp is dat, in teorie, moet die gewoon geladen worden zonder Replace.
Waroom Replace ald die een goed bmp bestand is?

Dus zo zou moeten genoeg zijn
Code:
Image1.Picture = LoadPicture(CommonDialog1.FileName & ".bmp")

maar het gaat niet en dat dat begrijp ik niet.
 
Laatst bewerkt:
Dan kies je in de CommonDialog dus voor een .txt bestand in plaats van een .bmp bestand.
 
Ja inderdaad. Want die commonDialog moet (ook) een textfile laden.
En samen ook een BMP bestand

DE file is met 2 textboxen + 1 image
 
Laatst bewerkt:
En omdat je dat .txt bestand kiest moet je voor het laden van de image dus de .txt in .bmp wijzigen.
Lijkt me logisch.
 
Ah, juist. Dus Replace is nodig.

Mijn formule is verkeerd blijkbaar
Code:
Image1.Picture = LoadPicture,Replace(CommonDialog1.FileName, ".txt", ".bmp")
 
Laatst bewerkt:
Als je een bestand met een andere extensie wilt gebruiken dan je geselecteerd hebt moet dat uiteraard gebeuren.
 
Opgelost Edmoor ! Uff !

Mijn fout was dat ik steeds bezig was met image1, Replace enz. ma om de extensie moest ik commondialog1 extensie wijzigen .
De juist formule was en is dus

Code:
CommonDialog1.FileName = Replace(CommonDialog1.FileName, ".txt", ".bmp")
  Image1.Picture = LoadPicture(CommonDialog1.FileName)


En hier de volledig code.
Code:
Private Sub Command1_Click()
Dim Slash As String
  Dim testo As String, kFile As String
  CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
  ' MkDir App.Path & "\DiagnoseArchief\" ' qui ho aggiunto
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
  testo = ""
  Do Until EOF(1)
    Line Input #1, kFile
    testo = testo & kFile & vbCrLf
    
   Line Input #1, kFile
    testo2 = testo2 & kFile & vbCrLf
  Loop
  Text1.Text = testo
  Text2.Text = testo2
  
  Close #1
  CommonDialog1.FileName = Replace(CommonDialog1.FileName, ".txt", ".bmp")
  Image1.Picture = LoadPicture(CommonDialog1.FileName)
  
End Sub




Private Sub Command2_Click()
  CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
  On Error Resume Next ' save
Dim Slash As String
'On Error Resume Next
 MkDir App.Path & "\DiagnosiArchivio" ' 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")
EndSub

Op het laatste krijg ik ( na duizend pogingen en twee dagen) dubbel extensie 'BMP'.
Daar was ook duidelijk dat ik moest de ".BMP" verwijderen
in
Code:
Image1.Picture = LoadPicture(CommonDialog1.FileName)

Bedankt voor uw geduld. dank U
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan