在不删除的情况下将文本添加到 Richbox答案

【问题标题】：Add text to richbox without deleting在不删除的情况下将文本添加到 Richbox
【发布时间】：2013-02-26 23:26:11
【问题描述】：

我尝试编写一个程序如何在 Richbox 中告诉我我要做什么，例如，当我单击 RichBox 中的一个启用时，我有 4 个 CheckBoxes 必须出现苹果启用... 梨禁用... 所以我有苹果梨胡萝卜花生和richbox需要看起来像，

梨禁用... 胡萝卜禁用... 花生启用... 梨启用.... 提交成功！梨禁用... 我对每个复选框都尝试这样做，但是当我选中一个 Richbox 时，它会被重置并且只显示一行

    If CheckBox2.Checked = True Then
        RichTextBox1.Text = "pear enabled..."
    Else
        RichTextBox1.Text = "pear disabled..."
    End If

我能做什么？谢谢！

【问题讨论】：

标签： vb.net visual-studio checkbox console

【解决方案1】：

也许你需要这个：

If CheckBox2.Checked = True Then
    RichTextBox1.Text &= "pear enabled..." & Environment.NewLine()
Else
    RichTextBox1.Text &= "pear disabled..." & Environment.NewLine()
End If

【讨论】：

【解决方案2】：

您可以简单地使用富文本框控件的 SelectedText 属性来正确附加文本。请看下面的代码..

公开课表1

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
    If (CheckBox1.Checked) Then
        RichTextBox1.SelectedText = CheckBox1.Text & " Enabled" & vbCrLf
    Else
        RichTextBox1.SelectedText = CheckBox1.Text & " Disabled" & vbCrLf
    End If

End Sub

Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
    If (CheckBox1.Checked) Then
        RichTextBox1.SelectedText = CheckBox2.Text & " Enabled" & vbCrLf
    Else
        RichTextBox1.SelectedText = CheckBox2.Text & " Disabled" & vbCrLf
    End If

End Sub

Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged
    If (CheckBox1.Checked) Then
        RichTextBox1.SelectedText = CheckBox2.Text & " Enabled" & vbCrLf
    Else
        RichTextBox1.SelectedText = CheckBox2.Text & " Disabled" & vbCrLf
    End If
End Sub

结束类

【讨论】：

【解决方案3】：

您要查找的词是“附加”文本。

RichTextBox1.AppendText("pear enabled...")

【讨论】：