0

私はプログラムをメカエしようとします。たとえば、リッチボックスで何をするかを教えてください。リッチボックスで1つの有効化をクリックすると、4つのチェックボックスが表示されます。アップルが有効になっている必要があります。のように見える必要があります、

洋ナシが無効になっています...ニンジンが無効になっています...ピーナッツが有効になっています...洋ナシが有効になっています...成功を送信してください！洋ナシが無効になっています...すべてのチェックボックスで試してみましたが、1つのリッチボックスがリセットされ、1行しか表示されないことを確認しました

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

私に何ができる ？ありがとう ！

4

3 に答える 3

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 に答える
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 に答える
0

あなたが探している単語は「追加」テキストです。

RichTextBox1.AppendText（ "pear enabled ..."）

于 2013-02-26T15:14:18.143 に答える