✔ Inhalt von TextBox in ListBox

[XanRaZoR]

Hi,
hab ein kleines Problem, was vermutlich garnicht mal so schwer zu lösen ist aber irgendwie krieg ichs einfach nicht hin.

Ich hab eine TextBox, wo verschiedenster Blödsinn drinsteht. Dieser Blödsinn (bzw. die einzelnen Zeilen) sind getrennt durch vbNewLine. Ich möchte jetzt, dass jede Zeile, die durch vbNewLine abgetrennt ist, als seperater Eintrag in einer ListBox erscheint.

Versteht ihr was ich meine? ^^

Hier noch ein kleines Beispiel:
In der TextBox steht:

Text1.Text = "Hallo" & vbNewLine & "Welt" & vbNewLine & "Ich bin blöd."

Ich möchte jetzt das ganze in eine ListBox übertragen, sodass ein Eintrag entsteht mit dem Text "Hallo", ein neuer Eintrag mit dem Text "Welt" und ein weiterer mit dem Eintrag "Ich bin blöd".

Hoffe ihr könnt mir helfen, ist bestimmt nicht so schwer wie ichs mir vorstell aber wie gesagt ich kriegs einfach nicht hin.

MfG.
raz0r

 

[ronaldh]

So geht es:

Private Sub Command1_Click()
   Dim Tx() As String
   Dim i As Integer
   
   Tx = Split(Text1.Text, vbNewLine)
   
   For i = 0 To UBound(Tx)
      List1.AddItem Tx(i)
   Next
End Sub

Viele Grüsse
Ronald

 

[XanRaZoR]

Perfekt danke. Werde es später ausprobieren und dann bescheid geben obs noch fragen gibt.

edit: danke klappt.