訪問して頂きありがとうございます。まさふくろーです。
この記事では、コンボボックスで選択されている項目を取得する方法をご紹介します。
目次
コンボボックスで選択されている項目を取得する
「選択された項目取得」ボタンをクリック
使用するプロパティ
SelectedIndexプロパティ
ComboBox名.SelectedIndex
解説 | SelectedIndexプロパティは、選択されている項目のインデックス番号を参照します。 |
選択されている項目がないときの値は「-1」になります。 |
SelectedItemプロパティ
ComboBox名.SelectedItem
解説 | SelectedItemプロパティは、選択されている項目名を参照します。 |
選択されている項目がないときの値は「Nothing」になります。 |
サンプルプログラム
「画面起動」時
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Public Class Form3 Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim arryKenmei() As String = {"北海道", "青森", "秋田", "岩手", "山形"} ComboBox1.Items.Clear() For Each Kenmei In arryKenmei ComboBox1.Items.Add(Kenmei) Next End Sub End Class |
4 | 文字列型の配列変数「arryKenmei」を宣言。同時に、コンボボックスに追加する項目を設定。 |
6 | コンボボックスの項目を削除(コンボボックスの初期化)。 |
8 | 配列変数「arryKenmei」の要素の数だけ、以下処理を繰り返す。 |
9 | コンボボックスに項目を追加する。 |
「選択された項目取得」ボタンクリック時
1 2 3 4 5 6 7 8 9 10 11 |
Public Class Form3 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ComboBox1.SelectedItem = Nothing Then Label1.Text = "選択されていません。" Else Label1.Text = ComboBox1.SelectedIndex + 1 & "番目:" & ComboBox1.SelectedItem End If End Sub End Class |
4 | コンボボックスの項目が選択されていない場合、 |
5 | 「選択されていません。」という文字をラベルに表示。 |
6 | コンボボックスの項目が選択されている場合、 |
7 | SelectedIndexプロパティでインデックス番号、SelectedItemプロパティで項目名を取得し、ラベルに表示。※インデックス番号は「0」からはじまるため、コンボボックスの上からの順番を取得するには「+1」します。 |
最後まで読んでいただき、ありがとうございました!
コンボボックスの関連記事はこちら
本のまとめ関連記事はこちら