如何实现ListView中的多行选择，按鼠标反键弹出菜单，选出删除删掉所有选中的条目？

[dabou]

如何实现ListView中的多行选择，按鼠标反键弹出菜单，选出删除删掉所有选中的条目？

[fokker]

再ListView的属性叶面中有一个叫做MultiSelect的选项，把他设成true，就可以多选了。

[ivt]

只要设置一两个属性就可以用CTRL、SHIFT配合鼠标
进行多行选择了啊。然后不就可以删除？

你放一个LISTVIEW和一个BUTTON到FORM上，然后用以下
代码：

Private Sub Command1_Click()
Dim i As Long
For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Selected = True Then
ListView1.ListItems.Remove i
End If
Next i
End Sub

Private Sub Form_Load()
Dim i As Long

ListView1.MultiSelect = True
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Test"

For i = 1 To 10
ListView1.ListItems.Add , , "Test" + CStr(i)
Next i
End Sub

这样你不就可以在LISTVIEW里多选几行，然后删除了？

[ivt]

可以结帖 了吗？？？

[ityaa]

《电脑爱好者》2001年第24期本人的文章。

[zyl910]

按鼠标反键弹出菜单
====================================================================
在MouseDown处理就行了

如果你想知道点击的是哪个项目
可以用它的HitTest方法