sql - 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 是列表中第一项的索引，因此将其放在开头。

Answer 2

不要简单地将项目添加到列表中，而是使用插入函数：

ListView1.Items.Insert(0, itm)