無法刪除ListView項

Question

我有一個ListView和這樣

下面的按鈕是我已經使用的數據的缺失從列表視圖

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click 
    If lvNotesList.SelectedItems.Count > 0 Then 
     Dim Result = MsgBox("Are sure you want to Delete the Selected Item ?", MessageBoxButtons.YesNo + vbQuestion) 
     If Result = DialogResult.Yes Then 
      Dim ID As String = lvNotesList.SelectedItems(0).SubItems(0).Text 

      Try 
       Dim sqlConnection As New SQLite.SQLiteConnection() 
       Dim sqlCommand As New SQLiteCommand("", sqlConnection) 
       Dim sqlPath As String = "Data Source=" & Application.StartupPath & "\Database\SimpleDB.db3" 
       Dim sqlQuery As String = "DELETE FROM Notes WHERE NoteID = " & ID 
       sqlConnection.ConnectionString = sqlPath 
       sqlConnection.Open() 
       sqlCommand.CommandText = sqlQuery 
       sqlCommand.ExecuteNonQuery() 
       sqlConnection.Close() 
       MsgBox("Operation Successfull", vbInformation) 
      Catch ex As Exception 
       MsgBox("Error: Operation Unsuccessfull." & Chr(13) & "Sumamry:" & ex.Message, vbExclamation) 
      End Try 

     Else 
      Exit Sub 
     End If 
    Else 
     MsgBox("Select an Item First", vbExclamation) 
    End If 
End Sub 

出於某種原因，它的代碼產生這樣的錯誤

我該如何解決這個問題？

Answer 1

MsgBox導致ListView失去焦點，從而清除選擇。您必須將ListView的HideSelection屬性設置爲false。

編輯：

試試這個

If lvNotesList.SelectedItems.Count > 0 Then 
     Dim ID As String = lvNotesList.SelectedItems(0).SubItems(0).Text 
     Dim Result = MsgBox("Are sure you want to Delete the Selected Item ?", MessageBoxButtons.YesNo + vbQuestion) 
     If Result = DialogResult.Yes Then