VB中,如何删除listview中用鼠标点中的那一行

Question

不采用checkbox时,如何删除listview中用鼠标点中的那一行,
用Listview1.listItems.remove 1
好像只能删除第一行
不是LIST, 是LISTVIEW

Answer 1

For i= ListView1.ListItems.Count To 1 Step-1
If ListView1.ListItems.Item(i).Checked = True Then
ListView1.ListItems.Remove ListView1.ListItems.Item(i).Index
End If

Next

//加个循环，无非是防止点击到其他地方报错而已

Answer 2

用户名是啥东西 的代码太麻烦了，还需要循环码？
一行代码就可以：
List1.RemoveItem (List1.ListIndex)

Answer 3

Private Sub ListView1_Click()
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub本回答被提问者采纳