Invoeren van tekst in tekstbox

[dKarl]

Ik heb momenteel dit. Iets heel simpels maar het lukt me niet.

Ik wens via een inputbox gegevens in te vullen in een textbox (multiline) om er een very basic boodschappelijstje van te maken. Maar ik kan maar 1 gegeven invullen.
Kan iemand me helpen daarbij?

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        dim artikel, tekst, lijn as string

        artikel = InputBox("Welk artikel wilt u erbij toevoegen?", "Artikel toevoegen")
        txtArtikel.Text = artikel
        tekst = "Wat heb ik nodig"
        lijn = "----------------"

        Do Until artikel = "stop"
            artikel = artikel & vbCrLf
        Loop

End Sub

 

[FTMC]

probeer dit eens...

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

dim artikel, tekst, lijst, lijn as string

tekst = "Wat heb ik nodig"
lijn = "----------------"

Do Until artikel = "stop"
artikel = InputBox("Welk artikel wilt u erbij toevoegen?", "Artikel toevoegen")
lijst += artikel & vbCrLf
Loop

txtArtikel.Text = lijst

End Sub

je past je tekstfield enkel aan in het begin, nu komt er normaal een inputbox tot het ingegeven artikel "stop" is... dan wordt normaal de tekst weggeschreven naar het tekstfield...

Ben niet 100% zeker, maar zou het wel eerst zo eens proberen...

Grtz

 

[dKarl]

Thanks voor je reply

Heb het zo opgelost;

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

dim artikel, tekst, lijst, lijn as string

tekst = "Wat heb ik nodig"
lijn = "----------------"

artikel = InputBox("Vul een gegeven in of 'stop' om te stoppen", "Artikel toevoegen")

        Do While artikel <> "stop"
            txtArtikel.Text &= artikel & vbCrLf
            artikel = InputBox("Vul een gegeven in of 'stop' om te stoppen", "Artikel toevoegen")
        Loop

End sub