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

回答No.3

n-jun · ベストアンサー

Select Case ShapeComboBox.SelectedIndex

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

お礼

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

回答No.2

imogasi

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

回答No.1

tinu 2000（@tinu2000）

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