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

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    ' チェックリストボックスに項目を追加する
    With Me.CheckedListBox1
        .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.CheckedListBox1.Items.AddRange(strItem)
End Sub

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

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

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

' 1番目の項目をチェックする
Me.CheckedListBox1.SetItemChecked(0, True)

' すべてのチェックを解除する
For i = 0 To Me.CheckedListBox1.Items.Count - 1
    Me.CheckedListBox1.SetItemChecked(i, False)
Next

' 選択されている全ての項目を取得する
For Each item In Me.CheckedListBox1.CheckedItems
    Debug.Print(item)
Next

' 選択されている全ての項目を取得する
For Each i In Me.CheckedListBox1.CheckedIndices
    Debug.Print(Me.CheckedListBox1.Items.Item(i))
Next

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

' 全てのチェックを解除する
For i = 0 To Me.CheckedListBox1.Items.Count - 1
    Me.CheckedListBox1.SetItemChecked(i, False)
Next