Vb.net 将文本添加到richbox而不删除

我试着告诉我一个程序如何在richbox中告诉我我为examle做了什么，当我点击richbox中的一个enable时，我有4个复选框 支持苹果的。。。 梨残疾。。。 所以我有苹果梨胡萝卜花生 richbox需要看起来像

梨残疾。。。 胡萝卜残疾。。。 花生使能。。。 Pear已启用。。。。 提交成功！ 梨残疾。。。 我对每个复选框都这样做，但当我选中一个richbox时，它会被重置，并且只显示一行

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

我能做什么？

---

谢谢

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

RichTextBox1.AppendText（“pear已启用…”）

也许您需要：

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

---

只需使用富文本框控件的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

末级