Question

listview控件如何实现移除多行内容

在vb中点击"移除"按钮 ,将我选中的listview控件当中的几行内容移除
Private Sub ListView1_Click()
Dim i As Integer
Dim last As Integer

For i = 1 To ListView1.ListItems.Count - 1
If ListView1.ListItems(i).Checked = True Then
ListView1.ListItems.Remove (i)
End If
Next i
last = ListView1.ListItems.Count
If ListView1.ListItems(last).Checked = True Then
ListView1.ListItems.Remove (last)
End If
ListView1.Refresh
End Sub
这样只能实现一行一行的删除
不能实现多行一起删

Answer 1

没错啊，你写的没什么问题啊。