添加文本到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沒有刪除

回答

相關問題