VB2008を使用しています。
3つのCheckBox1～3とそれに対応した3つのTextBox1～3を準備し、
Buttonを押すとCheckBoxがTrueのものだけをRichTextBox1に表示
させたくて下記のプログラムを作成しました。
しかしCheckBox1とCheckBox3については上手く作動するのですが
CheckBox2について不具合が発生します。
（不具合）
CheckBox1＝TrueでButtonを押すとRichTextBox1にTextBox1を表示。
その後、CheckBox3＝TrueでButtonを押すとRichTextBox1にTextBox1.
TextBox3と表示。
ここまでは良いのですが、
CheckBox2＝TrueでButtonを押すとRichTextBox1にTextBox2を表示。
その後、CheckBox3＝TrueでButtonを押すとRichTextBox1にTextBox2.
TextBox2.TextBox3と表示されてしまいTextBox2の内容が重複して
しまいまいます。
何か良い解決策がありましたら教えて下さい。
よろしくお願いいたします。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.CheckBox1.Checked = True Then
RichTextBox1.Text = TextBox1.Text
End If
If Me.CheckBox2.Checked = True Then
If RichTextBox1.Text <> "" Then
RichTextBox1.Text = RichTextBox1.Text & "."
End If
RichTextBox1.Text = RichTextBox1.Text & TextBox2.Text
End If
If Me.CheckBox3.Checked = True Then
If RichTextBox1.Text <> "" Then
RichTextBox1.Text = RichTextBox1.Text & "."
End If
RichTextBox1.Text = RichTextBox1.Text & TextBox3.Text
End If
End Sub
お礼
早々のご回答ありがとうございます。 RichTextBox1.Clearを先頭に追加して、不具合が解消いたしました。 こんなに早くに完璧な回答を頂き本当に感謝・感激です。