玄関へお回り下さい。
リストボックスでよく使用する設定集(その１）(8個)              (SNo.100)

１．指定行を選択状態にする
２．指定行の項目を取得する
３．選択されている項目を取得する（その１）
４．選択されている項目を取得する(その２）
５．リストの項目を追加する(リストの最後の追加書込みする）
６．リストの項目を追加する(５行目に挿入する）
７．指定行の項目を書き換える
使用コントロール Button1 〜 Button7  ListBox1  
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
１．指定行を選択状態にする
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'指定の行を選択状態にする
    ListBox1.SetSelected(5, True)   '0 から初まるので６行目になります。
End Sub
　
２．指定行の項目を取得する
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'指定行のデータを取得する
    Debug.WriteLine(ListBox1.Items(5))  '結果  はひふへほ
End Sub
　
３．選択されている項目を取得する（その１）
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'項目が選択されているかを取得
    With ListBox1
        If .SelectedIndex <> -1 Then
            Dim si As String = .SelectedItem.ToString()
            Debug.WriteLine(si & "  Index=" & .SelectedIndex)
            '結果  はひふへほ  Index=5
        End If
    End With
End Sub
　
４．選択されている項目を取得する(その２）
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'項目が選択されているかを取得
    With ListBox1
        If .SelectedIndex <> -1 Then
            Debug.WriteLine(.SelectedItem & "  Index=" & .SelectedIndex)
            '結果  はひふへほ  Index=5
        End If
    End With
End Sub
　
５．リストの項目を追加する(リストの最後に追加書込みする）
　
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'リストの項目を追加する(リストの最後の追加書込みする）
    ListBox1.Items.Add("ABCDEFGHIJK")
End Sub
　
６．リストの項目を追加する(５行目に挿入する）
　
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'リストの項目を追加する(５行目に挿入する）
    ListBox1.Items.Insert(4, "５行目に挿入します")
End Sub
　
７．指定行の項目を書き換える
　
Private Sub Button7_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button7.Click
'指定行の項目を書き換える
    ListBox1.Items(5) = "６行目を書換えます"
End Sub
　
テスト用データの表示（適当に準備願います）

Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
'ListBox の項目のリストに項目を追加します。
    With ListBox1
        .Items.Add("あいうえお")
        .Items.Add("かきくけこ")
        .Items.Add("さしすせそ")
        .Items.Add("たちつてと")
        .Items.Add("なにぬねの")
        .Items.Add("はひふへほ")
        .Items.Add("まみむめも")
        .Items.Add("や  ゆ  よ")
        .Items.Add("らりるれろ")
        .Items.Add("わをん")
    End With
End Sub






2004/05/08
2005/10/17


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005