如何在 VB .NET 中的列表视图中的选定项目之后立即添加项目

Question

我在列表视图中选择项目后立即写了一段用于添加项目的鳕鱼：

Private Sub InsertBeforeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InsertBeforeToolStripMenuItem.Click

        
        ListView1.Items.Add(Me.ListView1.Items(ListView1.SelectedIndices(0) + 1).Clone)

        For i = 0 To ListView1.Items.Count - 1

            ListView1.Items(i).Text = i + 1.ToString

        Next
end sub

但它不起作用这个鳕鱼将项目添加到列表视图的末尾而不是在选定的项目之后问题是我怎样才能达到这个目的？谢谢大家

Answer 1

怎么样：

If(ListView1.SelectedIndices.Count > 0) Then
  ListView1.Items.Insert(ListView1.SelectedIndices(0) + 1, "new item")
Else
  ListView1.Items.Add("new item")
End If

如何在 VB .NET 中的列表视图中的选定项目之后立即添加项目

How to add item right after selected item in listview in VB .NET

vb.net