【VB.NET】リストボックスを操作する（基本編）

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    ' リストボックスに項目を追加する
    With Me.ListBox1
        .Items.Add("北海道")
        .Items.Add("東北")
        .Items.Add("関東")
        .Items.Add("中部")
        .Items.Add("近畿")
        .Items.Add("中国")
        .Items.Add("四国")
        .Items.Add("九州・沖縄")
    End With
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    Dim strItem() As String = {"北海道", "東北", "関東", "中部", "近畿", "中国", "四国", "九州・沖縄"}

    ' リストボックスに配列項目を追加する
    Me.ListBox1.Items.AddRange(strItem)
End Sub

' 項目を挿入する
Me.ListBox1.Items.Insert(4, "５行目に挿入")

' 項目を全て削除する
Me.ListBox1.Items.Clear()

' 2行目の項目を削除する
Me.ListBox1.Items.RemoveAt(1)

' 1番目の項目を選択する
Me.ListBox1.SelectedIndex = 0

' 選択している状態を解除する
Me.ListBox1.SelectedIndex = -1

' 選択されているインデックスを取得する
Dim idx As Integer = Me.ListBox1.SelectedIndex
Debug.Print(idx)

' 選択されている文字列を取得する
Dim strItem As String = Me.ListBox1.SelectedItem
Debug.Print(strItem)

' 選択されている全ての項目の文字列を取得する
For Each item In ListBox1.SelectedItems
    Debug.Print(item)
Next

' 選択されている全てのインデックス番号を取得する
For Each idx In ListBox1.SelectedIndices
    Debug.Print(idx)
Next

' 2番目の項目が選択されているか
If ListBox1.GetSelected(1) Then
    MessageBox.Show("2番目の項目は選択されています")
Else
    MessageBox.Show("2番目の項目は選択されていません")
End If

' 指定した行を書き換える
Me.ListBox1.Items(1) = "2行を書き換える"

' 全ての項目の選択を解除する
Me.ListBox1.ClearSelected()