こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VB2008 comboboxの内容をSelectCaseで使いたい

VB2008 comboboxの内容をSelectCaseで使いたい

いつもお世話になってます。

初めてComboboxを使っています。
リストには
「メロンパン」
「コロッケパン」
「ハンバーガー」
と入っていて、
デバックしそれぞれを選択すれば、無事に指定欄に表示されるようにまではなりました。

ここでストップしてしまいまして、
Selectcase(今週習った)で、

case 1
(メロンパンは120円なので)
en=個数x120

case 2


というようにしたいのですが、

"Select Case ○○"の○○を何にすればいいのか分からないのと、
caseのあとの数字は(リストの上から)0,1,2というように聞いた気がしたのですがそれでよいのかどうか。

見ていただけないでしょうか。
未完成のぼろぼろですが、コードをおのせします。

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
txtKaimono.Text = 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
Case 0
en = kosu * 120
Case 1
en = kosu * 180
Case 2
End Select
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

投稿日時 - 2010-06-18 18:00:37

QNo.5977863

qc4

困ってます

質問者が選んだベストアンサー

Select Case ShapeComboBox.SelectedIndex

と言う事?
⇒選択されていなければ -1 になります。
 あとは上から0~ですね。

投稿日時 - 2010-06-19 09:45:00

お礼

ありがとうございます。
使わせていただきました。

投稿日時 - 2010-06-21 10:13:54

ANo.3

このQ&Aは役に立ちましたか?

10人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim ct As String
MsgBox(ComboBox1.Text)
ct = ComboBox1.Text
Select Case ct
Case "メロンパン"
MsgBox("単価=" & 120)
Case "コロッケパン"
MsgBox("単価=" & 100)
Case "ハンバーガー"
MsgBox("単価=" & 80)
End Select
End Sub
MsgBox(ComboBox1.Text)でで表示されるComboBox1.Textを問題にして、
(MsgBox(ComboBox1.Text)を入れることそのものは説明のためですが)
Select Case ct
とかSelect Case ComboBox1.Text

中身のありえるケースを
Case "メロンパン"
のように並べればしまいではないですか。
難しい問題が含まれているのかな。
当方は何が聞きたいのか、疑問点を旨く捉えていないかも。
個数*単価は出してないが、出すことは簡単。
単価をプログラムコードに埋め込んでいることに問題を感じるかもしれないが
手抜きの例えです。

投稿日時 - 2010-06-18 20:39:21

ANo.1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 kosu = TextBox1.Text
 Select Case txtKaimono.Text
  Case ”メロンパン”
   en = kosu * 120
  Case ”コロッケパン”
   en = kosu * 180
  Case ”ハンバーガー”
   en = kosu * 250
  case else
   en = 0 
 End Select
End Sub

投稿日時 - 2010-06-18 19:06:54

あなたにオススメの質問