VB - 如何在列表视图的顶部动态添加项目

Question

我在 VB.net 中有一个列表视图，我从 SQL 数据库中的表中填充它。列表视图每隔一段时间刷新一次（使用计时器），我希望每个动态添加的项目都添加到列表视图的顶部。

这是我的代码：

Dim itm as Listviewitem

 arr(0) = Date.Now.ToString
 arr(1) = Table.item("no")
 arr(2) = Table.item("datain")
 arr(3) = Table.item("message")

 itm = New ListViewItem(arr)
 ListView1.Items.Add(itm)

知道如何做到这一点吗？

Answer 1

使用Insert方法代替Add，如下所示：

ListView1.Items.Insert(0, itm)

注意：0 是列表中第一项的索引，因此将其放在开头。