在富文本框中写入新行。用vb答案

【问题标题】：Write in new line in rich text box. with vb在富文本框中写入新行。用vb
【发布时间】：2021-07-09 15:30:17
【问题描述】：

大家好，我想知道如何将短语中的每个单词写在一个新行中在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的新行中写下所有的单词。

【问题讨论】：

标签： .net vb.net split richtextbox

【解决方案1】：

我喜欢用vbCrLf常量：

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

【讨论】：

嗨先生..但是如果我有一个标签按钮空间它比正常空间大..我该如何替换它
更新了我处理标签的答案

【解决方案2】：

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

您只需将" " 替换为ControlChars.Lf aka New Line Character

【讨论】：

【解决方案3】：

您可以使用 vbCrLf 常量：

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

【讨论】：

【解决方案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 的行上添加“&”。

【讨论】：

【解决方案5】：

要添加新行，最好的选择是：

RichTextBoxResult.AppendText(Environment.NewLine)

【讨论】：