VB-Tips

ListView: Create and remove a ListView dynamicly

This sample needs only a new windowsform project Friend WithEvents bt As New Button
Friend WithEvents lv As New ListView
Friend WithEvents ch1 As New ColumnHeader
Friend WithEvents ch2 As New ColumnHeader

Private Sub Form1_Load(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
  Dim lvi1 As ListViewItem = New ListViewItem(New String() {"1", "One"}, -1)
  Dim lvi2 As ListViewItem = New ListViewItem(New String() {"2", "Two"}, -1)
  Dim lvi3 As ListViewItem = New ListViewItem(New String() {"3", "Three"}, -1)
  Dim lvi4 As ListViewItem = New ListViewItem(New String() {"4", "Four"}, -1)
  Dim lvi5 As ListViewItem = New ListViewItem(New String() {"5", "Five"}, -1)
  lv.Columns.AddRange(New ColumnHeader() {ch1, ch2})
  lv.Items.AddRange(New ListViewItem() {lvi1, lvi2, lvi3, lvi4, lvi5})
  lv.Location = New System.Drawing.Point(10, 10)
  lv.Size = New System.Drawing.Size(150, 150)
  lv.TabIndex = 0
  lv.View = View.Details
  bt.Location = New System.Drawing.Point(10, 200)
  bt.Text = "Click Me"
  Controls.Add(lv)
  Controls.Add(bt)
End Sub
Private Sub bt_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles bt.Click
        lv.Items.RemoveAt(2)
        For i As Integer = 2 To lv.Items.Count - 1
            lv.Items(i).Text = CStr(CInt(lv.Items(i).Text) - 1)
        Next
End Sub

---