添加文本到richbox没有删除

我试图mekae一个程序如何告诉我在richbox我做什么检查，我有4个复选框，当我点击一个启用RichBox必须apear 苹果启用... 梨禁用。 .. 所以我有苹果梨萝卜花生和richbox需要的样子，添加文本到richbox没有删除

梨禁用... 胡萝卜禁用... 花生启用... 梨启用.... 提交SUCCES！梨禁用... 我尝试了所有的复选框，但是当我检查一个richbox复位和apear只有一条线

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

我能做些什么？谢谢！

来源

2013-02-26 Malasuerte94

也许你需要这样的：

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

来源

2013-02-26 15:18:10 SysDragon

谢谢！现在我的程序正在运行！ – Malasuerte94 2013-02-26 15:25:29

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

RichTextBox1.AppendText（“启用梨......”）

来源

2013-02-26 15:14:18 James

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

公共类Form1中

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

末级

来源

2013-02-26 15:26:11

添加文本到richbox没有删除

回答

相关问题