• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Delete multiple selected rows in a listview

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.

Rate Delete multiple selected rows in a listview

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

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