vb.net – 多选列表框

您需要指定它以允许多个选择.

然后你可以这样做：

Dim i as Integer=0

For i=0 To Me.listBox.SelectedItems.Count -1
  'display the listbox value
next i

这是一个屏幕截图：

在列表框上设置属性后,根据要选择的值调用setselected.

me.lstItemSizes.SetSelected(3,true)
me.lstItemSizes.SetSelected(4,true)
me.lstItemSizes.SetSelected(9,true)

在这里你可以添加20个数字,只选择偶数.

Dim i As Integer

            'load the list with 20 numbers
            For i = 0 To 20
                Me.ListBox1.Items.Add(i)
            Next

            'now use setselected
            'assume only even are selected
            For i = 0 To 20
                If i Mod 2 = 0 Then
                    Me.ListBox1.SetSelected(i,True)
                End If
            Next

第3次编辑

看看你循环的方式,让我们假设我创建了一个整数列表,我的vb.net生锈了我主要用C#开发.但假设你这样做：

Dim l As New List(Of Integer)

            l.Add(2)
            l.Add(6)
            l.Add(20)

您的列表中只有三个项目,因此首先根据列表中的项目进行循环,然后在列表框中的项目中进行循环,反之亦然.看这个：

Dim i As Integer
        Dim l As New List(Of Integer)

        l.Add(2)
        l.Add(6)
        l.Add(20)

        'load the list with 20 numbers
        For i = 0 To 20
            Me.ListBox1.Items.Add(i)
        Next

        Dim lCount As Integer = 0

        For lCount = 0 To l.Count - 1
            For i = 0 To 20
                If i = l.Item(lCount) Then
                    Me.ListBox1.SetSelected(i,True)
                    Exit For
                End If
            Next
        Next

在代码中,我的列表只包含3个项目：2个,6个和20个.
我将这些项添加到l,它只是一个列表对象.
所以现在我必须循环使用这3个数字并与我的列表框进行比较.你可以在列表框上循环,然后考虑列表对象.

请注意,在我的for循环中,一旦找到列表中的项目,我就不再需要循环,所以我退出了.这确保我不会过度所需的循环量.找到项目后退出并返回列表对象计数.

运行我的代码之后是结果