VB.NET, C#, PowerShell Tipsサイト

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim strData() As String = {"A", "B", "C", "D", "E"}

    'リストボックスにアイテムを追加
    ListBox1.Items.AddRange(strData)

    '複数の項目を選択可能にする
    ListBox1.SelectionMode = SelectionMode.MultiSimple

    'すべての項目を選択された状態にする
    For I As Integer = 0 To ListBox1.Items.Count - 1
        ListBox1.SetSelected(I, True)
    Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '選択項目をすべて解除する
    ListBox1.ClearSelected()
End Sub