VB2008改行できません

質問

VB2008改行できません

お願いします。

メロンパン　3個　240円
コロッケパン　2個　…

という風にしたいのですが、
一行目が表示され、2行目の「コロッケパン」を入れた瞬間、
1行目が消え、
コロッケパンのみが表示されます。

なぜでしょうか。
正しいコードと、どのような理屈でそうなるのか頂けると嬉しいです。

Public Class Form1
Dim cm, a As String
Dim kosu, en As Integer

Private Sub ShapeComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShapeComboBox.SelectedIndexChanged
cm = ShapeComboBox.Text
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kosu = TextBox1.Text
Select Case ShapeComboBox.SelectedIndex

Case 0
en = kosu * 120
Case 1
en = kosu * 180
Case 2
en = kosu * 240
End Select
txtKaimono.Text = cm + kosu.ToString("　##個") + en.ToString(" #,###円") + vbCrLf

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()

End Sub
End Class

回答No.1

mimeu · ベストアンサー

> コロッケパンのみが表示されます。
というのは、txtKaimono での表示のことでしょうね。
（見ればわかるとは言え、そのくらいは書いて質問してくださいね）

> txtKaimono.Text = cm + kosu.ToString("　##個") + en.ToString(" #,###円") + vbCrLf
とすればソリャ最後の入力結果だけが表示されますよ。

お礼

いつもながらすみません。

え…最後しか表示されないんですか。
どうしたらいいんでしょ。

回答No.2

Wendy02

私には、以下の a の変数の意味が分かりませんが、もし使って良いというなら、そのa を使います。
Dim cm, a As String

>一行目が表示され、2行目の「コロッケパン」を入れた瞬間、
>1行目が消え、コロッケパンのみが表示されます。

どこまで設定しているか分かりませんが、txtKaimono のMultiline　プロパティは、True にしてありますか。

>txtKaimono.Text = cm + kosu.ToString("　##個") + en.ToString(" #,###円") + vbCrLf
前の検索したものを表示したいとするなら、

その変数 a を使って
　a = a & cm + kosu.ToString("　##個") & en.ToString(" #,###円") & vbCrLf
　txtKaimono.Text = a

としたらいかがでしょうか？

お礼

マルチ何とかはTRUEです。

>　a = a & cm + kosu.ToString("　##個") & en.ToString(" #,###円") & vbCrLf
>　txtKaimono.Text = a

いつもながら「なるほど!」と申し上げる理解力がなく申し訳ありません。

明日試してみますね。
ありがとうございます。