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