Listbox multiline naar textbox singleline...

[Martijntje]

Hi all,

Kan iemand me op weg helpen met het vullen van een textbox. Ik wil alle items uit een listbox achterelkaar, zonder tussenruimte- of tekens in een (single-line) textbox plaatsen, maar ik weet niet hoe...

Anyone?

Thanx,

Martijn

 

[Spiderman]

Hoi Martijntje,

Onderstaande code doet het volgende:

Dim i As Integer - Declarenen van de variable i.
TextBox1.Text = "" - Textbox leeg maken.
For i = 0 To ListBox1.ListCount - 1 - Begin van een For-Next-Lus die deze actie net zo vaak herhaald als het aantal items dat in de listbox staat.
TextBox1.Text = TextBox1.Text & ListBox1.List(i) - De tekstbox 1 voor 1 vullen met de items die in de listbox staan.
Next i - Einde van de For-Next lus

Dim i As Integer
TextBox1.Text = ""
        For i = 0 To ListBox1.ListCount - 1
            TextBox1.Text = TextBox1.Text & ListBox1.List(i)
        Next i

Suc6

 

[Martijntje]

Hey!

Bedankt!
En met de uitleg, daar heb ik wat aan, te gek!

Greetz,

Martijn