[VB.NET]コンボボックスで選択項目を取得するサンプル

2014年4月2日2021年10月22日

説明
ボタン(button)名: cmdAdd
コンボボックス(ComboBox)名:cmbCity
形式
1.プロパティでインデックス番号
コンボボックス名.SelectedIndex
2.プロパティで項目名
コンボボックス名.SelectedItem

使用例

　　　'画面起動
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '文字列型の配列変数の宣言
        Dim city() As String = {"東京", "大阪", "福岡", "山形"}

        ' コンボボックスの初期化
        cmbCity.Items.Clear()

        '配列の要素を繰り返してコンボボックスに項目を追加
        For Each ct In city
            cmbCity.Items.Add(ct)
        Next

    End Sub
    ' 　ボタンを押下
    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click

        If Not cmbCity.SelectedItem Is Nothing Then
            MessageBox.Show(cmbCity.SelectedIndex + 1 & "番目が選択された " & cmbCity.SelectedItem, "コンボボックス操作", MessageBoxButtons.OK)
        Else
            MessageBox.Show("項目が選択されていません", "コンボボックス操作", MessageBoxButtons.OK)
        End If
    End Sub

結果
(1).何も選択しないボタンを押下すると、「項目が選択されたいません」というメッセージボックスが表示されます。
(2)「福岡」を選択し、ボタンを押下すると、「3番目が選択された: 福岡」というメッセージボックスが表示されます。