For...Next met Listbox

[TjeTje]

Hallo iedereen
Ik wil graag dat alles mooi onder elkaar in een Listbox staat. Nu staat alles naast elkaar. Hoe kan ik er voor zorgen dat alles onder elkaar in de listbox staat?

In de bijlagen vind je foto's van mij form en code.

Bekijk bijlage 332353

Bekijk bijlage 332354

Hier is ook nog eens mijn code:

Dim prijs As Decimal
Dim antwoord As String
prijs = txtPrijs.Text

For i = 1 To 15
If i < 2 Then
antwoord = antwoord & i & " Broodje: " & (prijs * i) & " EUR" & vbNewLine
Else
antwoord = antwoord & i & " Broodjes : " & (prijs * i) & " EUR" & vbNewLine

End If
Next
Listbox1.Items.Add(antwoord)


Mvg

 

[SjonR]

Plaats aub een voorbeeldbestand.

 

[TjeTje]

Opgave



Dit is de opgave

 

[HSV]

Dim i As Long, prijs As Double, arr(14)
prijs = txtPrijs1.Text
 For i = 0 To 14
   arr(i) = i + 1 & " broodje" & IIf(i > 0, "s: ", ": ") & Format(prijs * (i + 1), "0.00") & " EUR"
 Next i
ListBox1.List = arr

Of:

Dim i As Long, arr(14)
 For i = 1 To 15
   arr(i-1) = i & " broodje" & IIf(i > 1, "s: ", ": ") & Format(txtPrijs1.Text * i, "0.00") & " EUR"
 Next i
ListBox1.List = arr

 

[snb]

@Tje

Zie hier: https://www.helpmij.nl/forum/announcement.php?f=348

 

[mastermindzh]

Beste TjeTje,

Ik sluit deze vraag omdat dit heel veel weg heeft van een schoolopdracht.
Schoolopdrachten (huiswerk) zijn op Helpmij.nl niet gewenst.

Hulp bij een opdracht bieden we wel, hiervoor is echter vereist dat je een uitleg geeft wat je wel en niet gedaan hebt (ook welke oplossing je bedacht hebt die niet werkte) en de code tot dus ver toont.
Kortom, we willen er wel bij helpen maar niet de opdracht compleet maken (daar leer je zelf immers niets van).

Als het geen schoolopdracht is meld dit dan a.u.b even via een moderatormelding en dan zal ik reageren met een oplossing.

m.v.g
Rick van Lieshout