Запись в новой строке в текстовом поле. с vb

Question

Привет, ребята, я хочу знать, как писать каждое слово в фразе в новой строке в richtextbox позволяет сказать, что фраза это «Возвращает массив строк, который содержит подстроки в этом экземпляре, которые разделены»

и код я работаю с это

Dim words As String = TextBox1.Text 
    Dim split As String() = words.Split(New [Char]() {" "c, CChar(vbTab)}) 

    For Each s As String In split 
     If s.Trim() <> "" Then 
      RichTextBox1.Text = (s) 
     End If 
    Next s 

Но с этим он лишь написать последнее слово предложения. И я хочу написать все слова в новой строке richtextbox.

Answer 1

мне нравится использовать vbCrLf константу:

RichTextBox1.Text = TextBox1.Text.Replace(" ", vbCrLf).Replace(vbTab, vbCrLf) 

Answer 2

Dim words As String = TextBox1.Text 
words.Replace(" ", ControlChars.Lf) 
RichTextBox1.Text = words 

Вам просто нужно заменить " " на ControlChars.Lf ака New Line Character

Answer 3

Вы можете использовать константу vbCrLf:

For Each s As String In split 
     If s.Trim() <> "" Then 
      RichTextBox1.Text = (s) + vbCrLf 
     End If 
    Next s 

Answer 4

Ваш код в порядке, за исключением одной вещи. Вы устанавливаете RichTextBox в строку каждый раз, поэтому он сохраняет перезапись. Вам нужно сцепить ...

Dim words As String = TextBox1.Text 
Dim split As String() = words.Split(New [Char]() {" "c, CChar(vbTab)}) 

For Each s As String In split 
    If s.Trim() <> "" Then 
     RichTextBox1.Text &= (s) 
    End If 
Next s 

Обратите внимание, что добавление «&» на линии, которая записывает в RTB.