怎样移除listview中被选定的行?

Question

如题

Answer 1

'LVDetails是一个listview控件的名字
    If LVDetails.ListItems.count = 0 Then Exit Sub
    
    Dim intRes As Long
    intRes = MsgBox("真的删除吗?", vbOKCancel, "粮食出入库管理软件")
    If intRes <> 1 Then Exit Sub
    
    Dim tmpitem As ListItem
    Set tmpitem = LVDetails.SelectedItem
    LVDetails.ListItems.Remove tmpitem.Index

Answer 2

ListView1.ListItems.Remove ListView1.SelectedItem.Index

Answer 3

搞定，还有一点点小问题，顺便问了就结
怎样把listview中原有的记录全部删除？

Answer 4

怎样设置listview只有一列，这一列的宽度就是整个listview的宽度？

Answer 5

怎样把listview中原有的记录全部删除？
LVDetails.ListItems.Clear怎样设置listview只有一列，这一列的宽度就是整个listview的宽度？
Private Sub Form_Load()
    ...
    LVDetails.ColumnHeaders.Add , , "xxxx", LVDetails.Width , lvwColumnLeft
    ...
End Sub

Answer 6

怎样把listview中原有的记录全部删除？
ListView1.ListItems.Clear
怎样设置listview只有一列，这一列的宽度就是整个listview的宽度？
ListView1.ColumnHeaders(0).Width = ListView1.Width

Answer 7

yangao(偶新手 请问门在哪里？) ( )  索引超出边界呀

Answer 8

iamtsfw(iamtsfw)  你的方法也不行呢，改不了宽度

Answer 9

索引超出边界呀是因为你还没有增加列表的列呢，按照我写的在form_load中一边增加列一边设置烈的宽度
耍赖！！！！！！！！！！！！怎么不给分？？？？？？？？？？？？

Answer 10

ListView1.ColumnHeaders.Add , , "xxxx", ListView1.Width, lvwColumnLeft