如何使用按钮从VB6 ListView中删除行(项)？

Question

如何删除ListView中的行.我需要选择要删除的行,如果要删除该行,命令按钮将使用警告消息将其删除.那个代码是什么？

Answer 1

假设你已经创建了ListView(ListView1)和按钮的Click事件(让我们称之为button1),通过双击它,可能会是这样的:

所以代码会是这样的:

private sub Button1_Click()
    if ListView1.SelectedItem is nothing then exit sub

    if MsgBox("Do you really want to delete?", "Question", vbYesNo) = vbYes then
        ListView1.ListItems.Remove ListView1.SelectedItem.Index
    end if
end sub