VB2008コントロール使用例：リストボックス（ListBox）の使い方

リストボックス コントロールの使用例サンプルです

コントロールの使用例へ


■リストボックスの項目を選択し、「選択項目」ボタンをクリックすると、選択されているインデックスNo.と項目名がラベルに表示されます。
インデックスNo.は0からになります。選択されていない場合は、-1が返ります。
リストボックスの使い方フォーム

「選択項目削除」をクリックすると、選択されている項目が削除されます。
リストボックスから削除

■実行コード

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Long

'登録
For i = 1 To 10
Me.ListBox1.Items.Add(i.ToString & "リストボックス")
Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'クリア
Me.ListBox1.Items.Clear()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'選択されているインデックス
If ListBox1.SelectedIndex < 0 Then
Label1.Text = "選択されていません。"
Else
'選択されているインデックスと項目
Label1.Text = ListBox1.SelectedIndex & " : " & ListBox1.SelectedItem
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'選択されているインデックス
If ListBox1.SelectedIndex < 0 Then
Label1.Text = "選択されていません。"
Else
'選択されているインデックスと項目
Label1.Text = ListBox1.SelectedIndex & " : " & ListBox1.SelectedItem
'削除
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End If
End Sub
End Class

Visual Basic 2008 Express Edition実践入門