Delete multiple selected rows in a listview
Always wanted to delete multiple rows in a listview by using checkboxes to select which ones to delete? Then this is the simple solution.
Might work on earlier versions of VB, too.
Original Author: Peter Schmitz
Code
Private Sub cmdDelete_Click()
Dim i As Integer
With Listview1
' The trick: We step backwards through
' the array.
' The reason you always get an 'out of
' bound' error is because at a certain
' point the value of i will equal 0,
' or be greater than the number of rows
' left. (We set i with the initial
' row.count, and then start deleting
' from that count).
' We avoid that by stepping
' backwards :)
For i = .ListItems.Count To 1 Step -1
If .ListItems(i).Checked Then
.ListItems.Remove (i)
End If
Next i
End With
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.