woorden van textbox naar listbox

[bonnowagt]

Hallo,

Wie kan mij helpen met het volgende:

Ik heb een richtextbox waarin bijvoorbeeld de volgende tekst staat:

De jarige Brian uit Werkendam was zo blij dat hij een hoofdrol had bemachtigd voor de familiemusical dat hij het in zijn dorp van de daken schreeuwde. Een huis-aan-huisblad pikte het nieuws op en strikte de jongen deze week voor een uitgebreid interview.

Vervolgens heb ik een listbox en zou graag deze tekst woord voor woord onderelkaar, dus steeds een nieuw item in de listbox, plaatsen.

Listbox moet er an als volgt uitzien:

De
jarige
Brian
uit
Werkendam
was
zo
blij
dat
hij
een
hoofdrol
enzovoort.......


Wie kan mij hierbij helpen alvast bedankt

 

[edmoor]

Wel even de namen juist maken:

UserForm1.ListBox1.List = Split(RichTextbox1.Text, " ")

 

[bonnowagt]

Sorry ligt vast aan mij hoor maar snap dit niet helemaal.

Mijn listbox heet listbox1

Ik heb dus nu geprobeerd listbox1.items.add(Split(RichTextbox1.Text, " ")
Afgezien dat mijn code niet correct zal hij ook niet het eerste woord laden en dan vervolgens het tweede item.
Mijn excuses dat ik het verkeerd probeer uit te leggen

 

[edmoor]

Sorry hoor maar ik vraag me af waarom je iets heel anders doet dan ik in m'n voorbeeld laat zien. Zo heeft het geen zin om een voorbeeld te geven. Je hoeft dan toch alleen maar die Userform1. uit m'n voorbeeld weg te laten?

 

[bonnowagt]

Sorry maar dat heb ik dus ook gedaan dus als volgt:
ListBox1.List = Split(RichTextbox1.Text, " ")
ik krijg dan een blauwe streep onder listbox1.list

 

[edmoor]

Ik was zelf ook even in de bonen en haalde VBA en VB.Net door elkaar. In VB.Net zou het dit moeten zijn:

ListBox1.Items.AddRange(Split(RichTextBox1.Text, " "))

Excuus voor de verwarring.

 

[bonnowagt]

Geeft niks maar dit is de juiste oplossing geweldig en bedankt.

 

[edmoor]

Ok dan