VB.NET 一次从 2 个列表框中删除最后一项不起作用

Question

我正在开发一个名为"智能搜索"的程序。在"自定义搜索"表单中，我使删除项目成为可能。这里的问题是有两个列表框。一个用于您应该搜索的内容，另一个用于搜索时发生的情况：https://i.stack.imgur.com/OPzr5.png

哦，顺便说一句。当你在其中一个列表框中选择一个项目时，同一个选择的索引将在另一个中选择。

但是，当我删除列表中最后一个项目时，我会出现错误。我认为我的代码有问题，但我找不到任何问题。代码：http://pastebin.com/LRBfx5DL

Answer 1

试试这样的东西：

Private Sub rembtn1_Click(sender As Object, e As EventArgs) Handles rembtn1.Click
    Dim index As Integer = ListBox1.SelectedIndex
    If index <> -1 Then
        ListBox1.Items.RemoveAt(index)
        If index < ListBox2.Items.Count Then
            ListBox2.Items.RemoveAt(index)
        End If
        save()
    End If
End Sub