0

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

梨禁用...胡萝卜禁用...花生启用...梨启用....提交成功！梨禁用...我尝试为每个复选框但是当我检查一个richbox被重置并且只出现一行

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

我能做些什么 ？谢谢 ！

4

3 回答 3

1

您可以简单地使用富文本框控件的 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

结束类

于 2013-02-26T15:26:11.320 回答
1

也许你需要这个：

If CheckBox2.Checked = True Then
    RichTextBox1.Text &= "pear enabled..." & Environment.NewLine()
Else
    RichTextBox1.Text &= "pear disabled..." & Environment.NewLine()
End If
于 2013-02-26T15:18:10.923 回答
0

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

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

于 2013-02-26T15:14:18.143 回答