VB.NET一次删除2个列表框中的最后一项无法正常工作

时间:2015-11-29 11:50:28

标签: vb.net listbox

我正致力于一项名为" Smart Search"的计划。在"自定义搜索"形成, 我可以删除项目。那么,问题在于它是两个列表框。一个用于搜索的内容,另一个用于搜索时发生的内容:https://i.imgur.com/aGZRoeX.png

哦,顺便说一下。当您在其中一个列表框中选择一个项目时,将在另一个中选择相同的selectedindex。

但是当我删除列表中的 last 项时,我收到错误。 我认为我的代码有问题,但我发现它没有任何问题。 代码:http://pastebin.com/LRBfx5DL

1 个答案:

答案 0 :(得分: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