Hello Guys,, I am Trying Remove Item in ListView But my Code Does not Work..
heres my CodeHelp Me Guys Thanks..Code:Private Sub Command4_Click() Dim choice As Integer Dim str As String Dim i As Integer choice = MsgBox("Are you sure you want to delete this record?", vbYesNo + vbQuestion, "Confirmation") If choice = vbYes Then For i = ListView1.ListItems.Count To 1 Step -1 If (ListView1.ListItems(i).Text = "") Then ListView1.ListItems.Remove (i) End If Next MsgBox "Record Delete", vbOKOnly, "Success" End If End Sub


Reply With Quote
If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

Bookmarks