Question

VB.net listview 如何插入一行

比如在listview里已有两行，当选中第一行时，点击“插入或增加”按钮，自动将选中的第一行插入到选中第一行的后面，即产生了新的第二行，原来的第二行则变为第三行，代码如何实现呢？分数不多，望高手赐教！

Answer 1

   也不是很熟悉，将就用吧。

 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With ListView1
            .Columns.Add("姓名")
            .Columns.Add("年龄")
            .Columns.Add("姓别")
        End With
    End Sub
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static Index As Integer
        Index += 1
        If ListView1.SelectedIndices.Count > 0 Then '如果有选中则插入
            Dim lItem As System.Windows.Forms.ListViewItem = ListView1.Items.Insert(ListView1.SelectedIndices.Item(0) + 1, "李丫" & Index)
            lItem.SubItems.AddRange(Split("24,女", ","))
        Else '否则添加
            Dim lItem As System.Windows.Forms.ListViewItem = ListView1.Items.Add("李丫" & Index)
            lItem.SubItems.AddRange(Split("24,女", ","))
        End If
    End Sub