Een return plaatsen in textbox multiline om items te lezen van ListBox (Vb6)

[satriano17]

Ik heb een listbox en een tekst1 Multiline. Wordt een tekstbestand gelezen en
de items weergegeven in een ListBox . Als ik nu een item in de listbox selecteer,
wordt de item in tekst1 weergegeven. Dat is goed.
Maar ik wil meerdere items (na elkaar) en onder elkaar tonen bij elke selectie.
Nu, als ik een ander selecteer, vervangt het de vorige.
Ik heb geprobeerd een vbCrLf toe te voegen, maar het werkt niet.
Waar moet ik een return plaatsen?

ipos = -1
Dim bestand As Long
    Dim lijn As String
    Dim textAndValue() As String
    List1.Clear
    bestand = FreeFile
    Open App.Path & "\Lista.txt" For Input As #bestand
    Do While Not EOF(bestand)
        Line Input #bestand, lijn
        If Len(lijn) Then
            textAndValue = Split(lijn, "*")
            
            If UBound(textAndValue) = 1 Then
            
            List1.AddItem textAndValue(0)
aantalteksten = aantalteksten + 1
ReDim Preserve teksten(aantalteksten)
teksten(aantalteksten - 1) = textAndValue(1)
  List1.ItemData(List1.NewIndex) = aantalteksten - 1
 End If
        End If
    Loop
    Close #bestand
EndSub

Private Sub List1_Click()
Text1.Text = List1.ItemData(List1.ListIndex)
Text1.Text = teksten(List1.ItemData(List1.ListIndex)) & vbCrLf  '< -------------
 End If
EndSub

 

[edmoor]

Als je je project hier plaatst wil ik wel even mee kijken.

 

[satriano17]

ok. hierbj een voorbeeld

 

[snb]

Mij lijkt dit voldoende:

Sub M_snb()
    Open App.Path & "\Lista.txt" For Input As #1
        List1.List = Split(Input(LOF(1), 1), vbLf)
    Close #1
EndSub

Private Sub List1_Click()
    Text1.Text = Tekst1.Tekst & vbLf & List1.ItemData(List1.ListIndex)
EndSub

of

Private Sub List1_Click()
    Text1 = Tekst1 & vbLf & List1.Value
EndSub

 

[edmoor]

Doe het eens zo:

Private Sub List1_Click()
    If List1.ListIndex >= 0 Then
        Text1.Text = Text1.Text & teksten(List1.ListIndex) & vbCrLf
    End If
End Sub

En verwijder de standaard tekst uit dat object.

 

[satriano17]

Het werkt, Edmoor. Ja.
Bij mij was een regel meer , zoals ik zie.
Perfect.
Bedankt voor de snelle oplossing.