Question

VB.NET中要删除列表框中的多个选项，请问代码如何编写。我下面的代码错在哪里请指导，谢谢

Dim i As Integer
If ListBox1.SelectedIndex > 0 Then
' ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
For i = ListBox1.SelectedIndex - 1 To 0 Step -1
If ListBox1.SelectedIndex(i) Then
ListBox1.Items.RemoveAt(i)
End If
Next i
End If

Answer 1

For i = List1.ListCount - 1 To 0 Step -1
     If List1.Selected(i) Then
        List1.RemoveItem (i)
     End If
Next i

追问

是要在VB.NET中，上面的代码是在VB中吧

追答

        For Each Item As String In ListBox1.SelectedItems
            dict.Add(Item, Item)
        Next

        For Each i As String In dict.Keys
            ListBox1.Items.Remove(i)
        Next