Springen naar inhoud


- - - - -
VB6 SOLVED

Een Textfile (Text+Image) Laden/Weergeven Van Filelistbox



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

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 174 berichten
    Laatst bezocht 18 jul 2020 12:18

Geplaatst op 03 november 2014 - 16:02

Dag
Ik heb op het form
1 filelistbox
3 textboxen (waarde1,waarde2,waarde3)
1 image
Met onderstande code kan ik inhoud van de de 3 textboxen saven in een textfile met naam in de dir Frequenze
dan   worden alle textfiles weergegeven in de filebox
Als ik dan een van de files selecteeer of ik blader met de pijl tussen de files in de filebox dan wordt de inhoud van de files
correct in de textboxen weergegeven.
Tot hier alles goed.
Ik heb ook een stuk code toegevoegd om ook een afb te saven met de file, met hetzelfde naam van de file.
Dus als de naam van de file TEST.txt  is dan wordt de image als TEXT.BMP gesaved.
En ook dit werkt goed.
Mijn probleem dan:
Als ik bladeer tussen de textfiles in de filebox en een file selecteer wordt geen bijhorend image geladen
(de image heeft,zoals gezegd hetzelfde naam van de file)
Wat moet ik verbeteren om een file (textboxen + image) te open en weergeven  als ik bladeer in de filebox?
Dank u
Houthalen


Code:
Option Explicit
Private Type MyFile
Text1 As String
Text2 As String
Text3 As String
End Type
End Sub
Private Sub File1_Click()
LoadFile (File1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Path = App.Path & "\Frequenze"
End Sub
Dim i As Integer
If Dir(App.Path & "\Frequenze\" & waarde1.Text & ".txt") <> "" Then
LoadFile (App.Path & "\Frequenze\" & waarde1.Text & ".txt")
For i = 0 To (File1.ListCount - 1)
	 If File1.List(i) = (waarde1.Text & ".txt") Then File1.Selected(i) = True: Exit For
Next i
End If
End Sub
Private Sub Image1_Click() ' hier laad ik een afb te assoicieren met de file
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
Private Sub Load_click()
On Error Resume Next
MkDir App.Path & "\Frequenze\" '
CommonDialog1.Filter = "Tekst|*.txt"
CommonDialog1.InitDir = App.Path & "\frequenze\"
CommonDialog1.ShowOpen
Call LoadFile(CommonDialog1.FileName)
End Sub

Public Sub LoadFile(FileName As String)
Dim File As Long
Dim Bestand As MyFile

File = FreeFile
On Error Resume Next
Open FileName For Binary Access Read As #File
Get #File, , Bestand
Close #File
waarde1.Text = Bestand.Text1
waarde3.Text = Bestand.Text2
waarde2.Text = Bestand.Text3

End Sub

Public Sub SaveText(FileName As String)
Dim File As Long
Dim Bestand As MyFile
Bestand.Text1 = waarde1.Text
Bestand.Text2 = waarde3.Text
Bestand.Text3 = waarde2.Text
File = FreeFile
On Error Resume Next
Open FileName For Binary Access Write As File
Put #File, , Bestand
Close #File
File1.Refresh
End Sub
Private Sub Save_Click()
On Error Resume Next
Refresh
MkDir App.Path & "\Frequenze\" '
CommonDialog1.Filter = "Tekst|*.txt"
CommonDialog1.InitDir = App.Path & Frequenze\"
CommonDialog1.ShowSave
SavePicture Image1.Picture, CommonDialog1.FileName & ".bmp"' hier save ik de afb met hetzelde naam van de file.
Call SaveText(CommonDialog1.FileName)
End Sub





#2 Svr

Svr

    Junior Developer

  • Leden
  • PipPip
  • 51 berichten
    Laatst bezocht 08 jul 2016 20:37

Geplaatst op 03 november 2014 - 19:58

Code:
Public Sub LoadFile(FileName As String) 
Dim File As Long 
Dim Bestand As MyFile 

 
File = FreeFile 
On Error Resume Next 
Open FileName For Binary Access Read As #File 
Get #File, , Bestand 
Close #File 
waarde1.Text = Bestand.Text1 
waarde3.Text = Bestand.Text2 
waarde2.Text = Bestand.Text3 
 
'zo iets?
ImgFilename = Replace(filename, "text", "bmp")
Image1.Picture = LoadPicture(ImgFilename)



End Sub 



#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 174 berichten
    Laatst bezocht 18 jul 2020 12:18

Geplaatst op 04 november 2014 - 18:00

Dank voor uw tip, Svr, maar spijtig genoeg,  uw code werkt niet (wordt geen image geladen samen met de textboxen.)

Intussen heb  ik zo  geprobeerd

Code:
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName + ".bmp")
End Sub


en dit werkt wel.
Raar toch  dat uw code niet werkt  want het was een mooi structuur.

Toch bedankt
houthalen

#4 Svr

Svr

    Junior Developer

  • Leden
  • PipPip
  • 51 berichten
    Laatst bezocht 08 jul 2016 20:37

Geplaatst op 04 november 2014 - 19:10

Code:
 



ImgFilename = Replace(filename, "txt", "bmp") 'verander "text" naar "txt"




#5 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 174 berichten
    Laatst bezocht 18 jul 2020 12:18

Geplaatst op 04 november 2014 - 19:53

OK, Svr. Nu werkt wel.
Ik moest nog iets aanpassen (onder andere imgFilename dimensioneren)
maar nu is ook uw code ok.

nogmaals bedankt
houthalen

(Opgelost)





Ook met taq VB6 SOLVED voorzien

0 gebruiker(s) lezen dit onderwerp

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

Inloggen


[VB6 SOLVED] 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)