ListView - alle SubItems einer Spalte löschen

    • VB.NET
    • .NET (FX) 4.5–4.8

      ListView - alle SubItems einer Spalte löschen

      Ich brauchte häufig mal die Funktion, ganze Spalten und deren SubItems zu löschen (mit

      VB.NET-Quellcode

      1. ListView1.Columns.Remove(...)
      kann man ja nur die Spaltenköpfe entfernen), deshalb ich mir hier einen kleinen Code zusammengeschrieben. Diesen würde ich gerne mit euch teilen, da ich denke, dass ich nicht der einzige bin, der diese Funktion braucht.

      VB.NET-Quellcode

      1. Private Sub DeleteColumn(ByVal index As Integer, ByVal LiVw As ListView)
      2. Dim LV As New ListView
      4. For Each ch As ColumnHeader In LiVw.Columns
      5. If ch.Index <> index Then
      6. LV.Columns.Add(ch.Text)
      7. End If
      8. Next
      10. For Each Item As ListViewItem In LiVw.Items
      12. With LV.Items.Add(LiVw.Items(Item.Index).Text)
      14. For n = 1 To LiVw.Columns.Count
      16. If index <> n Then
      18. Try
      19. .SubItems.Add(LiVw.Items(Item.Index).SubItems(n).Text)
      20. Catch ex As Exception
      22. End Try
      24. End If
      26. Next
      28. End With
      30. Next
      32. LiVw.Clear()
      34. For Each c As ColumnHeader In LV.Columns
      35. LiVw.Columns.Add(c.Text)
      36. Next
      38. Dim Items(LV.Items.Count - 1) As ListViewItem
      39. For i As Integer = 0 To LV.Items.Count - 1
      40. Items(i) = CType(LV.Items(i).Clone, ListViewItem)
      41. Next
      42. LiVw.Items.AddRange(Items)
      44. End Sub​


      Man brauch lediglich den Index der zu löschenden Spalte.

      Ich hoffe ich konnte dem einen oder anderen helfen! ;)

    Facebook
    Telefonspende