VB2008コントロール使用例：リストボックス項目の複数選択（SelectionMode）リストボック コントロールの使用例サンプルですコントロールの使用例へリストボックスを複数選択できるようにするには、SelectionModeプロパティで行います。 SelectionModeを、MultiSimple か MultiExtended にすると可能になります。 ■SelectionModeの設定内容 None ： 選択できる項目はありません。 One ： 1つの項目だけ選択できます。 MultiSimple ： 複数の項目を選択できます。 MultiExtended ： 複数の項目を選択できます。また、Shift キー、Ctrl キー、および方向キーを使用して項目を選択できます。 ■リストボックスの項目を複数選択し、「選択項目」ボタンをクリックすると、全ての選択されているインデックスNo.と項目名がラベルに表示されます。  ■実行コード 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 Dim idx As Integer 'ラベルのクリア Label1.Text = "" '全選択項目をループする For Each idx In ListBox1.SelectedIndices 'インデックスNo.と項目を表示 Label1.Text &= idx & " : " & ListBox1.Items(idx) & vbNewLine Next End Sub End Class Visual Basic 2008 Express Edition実践入門 |