VB.NET一次從2個列表框中刪除最後一項不起作用

Question

我正在開發一個名爲「智能搜索」的程序。在「自定義搜索」表格中， 我可以刪除項目。那麼，這裏的問題是它是兩個列表框。一個爲你應該搜索什麼，一個爲什麼當你搜索：https://i.imgur.com/aGZRoeX.png

哦，順便說一句。當您在其中一個列表框中選擇一個項目時，將在另一箇中選擇相同的selectedindex。

但是，當我刪除列表中的最近的項目時出現錯誤。 我認爲我的代碼有問題，但我找不到任何問題。 代碼：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