ListView所选中2行以上删除法，正确方法怎样编？
ListView所选中2行以上删除法，正确方法怎样编？ 问题点数：20、回复次数：3Top
1 楼tripman（牛愤︱9# dream）回复于 2006-06-03 13:42:42 得分 0
Dim i as long
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then
List1.RemoveItem i
End If
Next iTop
2 楼RPFly（Fly）回复于 2006-06-03 18:53:54 得分 0
Dim i as long
For i = List1.ListCount To 1 Step -1
If List1.listitem(i).checkded=true Then
List1.RemoveItem i
End If
Next iTop
3 楼djunny（小段）回复于 2006-07-09 17:34:07 得分 0
Private Sub ReMove()
If MainFrm.UrlList1.SelCount > 0 Then
For i = 0 To MainFrm.UrlList1.ListCount - 1
If MainFrm.UrlList1.Selected(i) = True Then
MainFrm.UrlList1.RemoveItem i
MainFrm.UrlList2.RemoveItem i
ReMove
Exit Sub
'MainFrm.UrlList1.Refresh
End If
Next
End If
End Sub
我这是这样写的,不过好像很占资源.Top
