我们使用ListView装入数据之后，可能需要删除其中一些行，这个也很好实现。假设画面上有一个listview控件，名字叫做LV，已经装入了数据且有checkbox列，有一个按钮用于执行删除行的操作，在按钮的鼠标点击事件中加入以下vbs代码：

Sub OnClick(ByVal Item)    
Dim LV,CheckedCount,i
Set LV=screenitems("LV")
CheckedCount=0
For i=1 To LV.listitems.count
   If LV.listitems.item(i).checked=True Then
   CheckedCount=CheckedCount+1
   End If
Next
'每删除一个CheckedCount减去1,直到没有勾选项
i=0
If CheckedCount<>0 Then
 Do While CheckedCount>0
  i=i+1
  If i=LV.listitems.count+1 Then
   i=1
  End If
  If LV.ListItems.item(i).checked=True Then
    LV.ListItems.remove(i)
    CheckedCount=CheckedCount-1
  End If  
 Loop
End If
End Sub