如何使用VB6中LISTVIEW控件中的选择多个元素的功能（如删除）

[zwh100]

如何使用VB6中LISTVIEW控件中的选择多个元素的功能（如删除），用键盘中CTRL或者SHIFT键组合，选中多个项目，如何删除？？？？

[liyang]

listview.multiselect=true
dim lstItem as MSComctlLib.ListItem

for each lstItem in ListView.ListItems
if lstItem.Selected then
...do yourself
end if
Next

[Tyro]

删除用listview.listitems.remove(index)
添加元素时加上index值，用lstItem.index可以获得当前项的index

[schunter]

将listview1的MultiSelect 设为true,就可以使用键盘中的CTRL或者SHIFT组合了。
下面的代码是删除多个选项。
Private Sub Form_Load()
Dim iItem As ListItem
Dim i As Integer

For i = 0 To 10
Set iItem = ListView1.ListItems.Add(, , CStr(i))
iItem.SubItems(1) = i + 1
iItem.SubItems(2) = i + 2
iItem.SubItems(3) = i + 3
Next

End Sub

Private Sub ListView1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
If KeyCode = vbKeyDelete Then
For i = ListView1.ListItems(ListView1.ListItems.Count).Index To 1 Step -1
If ListView1.ListItems(i).Selected Then
ListView1.ListItems.Remove i
End If
Next
End If
End Sub
加点分吧。谢谢！