The link at the date of the calendar is an entry.
スポンサーサイト
-------- -- --:--
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
別窓
カテゴリ:スポンサー広告 | テーマ: | ジャンル:
そりゃまんまだな
2010-06-21 Mon 12:00
VB2008改行できません

スペースが消えて読み辛いので調整して引用します

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

ぶっちゃけた話、表示されているテキストボックスの中身に追記しないとならないのにまんまテキストボックスに書き込んでるから一個しか出てこないわけで、「txtKaimono.Text = cm + kosu.ToString(" ##個") + en.ToString(" #,###円") + vbCrLf」を「txtKaimono.Text = txtKaimono.Text + cm + kosu.ToString(" ##個") + en.ToString(" #,###円") + vbCrLf」ってやればそれで終わりな話なんだよね

個人的な話をするなら文字列の接続は「+」よりは「&」の方が好きだったりするけどそれはまた別の話なんだけどね

関連記事
別窓 | コメント:0
カテゴリ:教えて!goo(ヲチ) | テーマ:ひとりごとのようなもの | ジャンル:日記
<<わかりやすいタイトルにしようって気持ちはたぶん無い | ReWiz's ブログ出張所 | アイコンはともかくとして>>
この記事のコメント
コメントの投稿
 

管理者だけに閲覧
 

| ReWiz's ブログ出張所 |
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。