I have here a simple sample on how to group in a listview. I hope this simple code can help to someone needed this.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim group1 As New ListViewGroup(“Group 123″, HorizontalAlignment.Left)
group1.Name = “Group 123″
ListView1.Groups.Add(group1)
With ListView1.Items
.Add(“123″)
.Item(.Count – 1).SubItems.Add(“ABC”)
.Item(.Count – 1).SubItems.Add(“1/11/05″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“TV”)
.Item(.Count – 1).Group = group1
.Add(“123″) .Item(.Count – 1).SubItems.Add(“DEF”)
.Item(.Count – 1).SubItems.Add(“1/11/05″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“VCD”)
.Item(.Count – 1).Group = group1
.Add(“123″)
.Item(.Count – 1).SubItems.Add(“GHI”)
.Item(.Count – 1).SubItems.Add(“1/11/05″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“TVRACK”)
.Item(.Count – 1).Group = group1
Dim group2 As New ListViewGroup(“Group 234″, HorizontalAlignment.Left)
group2.Name = “Group 234″
ListView1.Groups.Add(group2)
.Add(“234″)
.Item(.Count – 1).SubItems.Add(“KLM”)
.Item(.Count – 1).SubItems.Add(“1/12/06″)
.Item(.Count – 1).SubItems.Add(“1″)
.Item(.Count – 1).SubItems.Add(“MIC”)
.Item(.Count – 1).Group = group2
End With
End Sub
End Class
No tags
