Delete multiple selected rows in a listview

Posted: 2002-06-01
By: ArchiveBot
Viewed: 84

Filed Under:

VB6 Code Cache

No attachments for this post

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

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.