ObjectListView - 添加新行

Question

我正在编写一个 vb/windows 形式的工具，它将删除远程计算机上的用户配置文件。除了显示已删除的计算机名称和配置文件外，它的效果很好。

当我尝试 ObjectListView 时，它会在第一行显示信息，并为每台计算机覆盖它，并在每台计算机上删除每个配置文件。这是我遇到问题的代码部分......

Public Class PC
    Public Property Computer_Name As String
    Public Property Profile_Name As String
End Class

-

For Each objProfile In colProfiles
    Dim dtmLastUseTime = CDate(Mid(objProfile.LastUseTime, 5, 2) & "/" &
Mid(objProfile.LastUseTime, 7, 2) & "/" & VB.Left(objProfile.LastUseTime, 4) _
& " " & Mid(objProfile.LastUseTime, 9, 2) & ":" &
Mid(objProfile.LastUseTime, 11, 2) & ":" & Mid(objProfile.LastUseTime,
13, 2))
    If DateDiff("d", dtmLastUseTime, d1) > intMaxProfileAge Then
        usrPath = objProfile.localpath
        rowInfo2 = usrPath

        Dim LvItm As New PC With {.Computer_Name = rowInfo1, .Profile_Name = rowInfo2}
        Dim LvLst As New List(Of PC)
        LvLst.Add(LvItm)
        ObjectListView1.SetObjects(LvLst)

        objProfile.Delete_
    End If
Next

Answer 1

尝试替换这个：

Dim LvLst As New List(Of PC)
LvLst.Add(LvItm)
ObjectListView1.SetObjects(LvLst)

在：

ObjectListView1.AddObject(LvLst)

或

移动这条线

Dim LvLst As New List(Of PC)

在strat for-each循环之前，以及这一行

ObjectListView1.SetObjects(LvLst)

在next 行之后。