Private Sub FillLV()
ListView1.Items.Clear()
ListView1.Groups.Clear()
Dim item0 As New ListViewItem(New String() _
{"Programming Windows", "Petzold, Charles", "1998"})
Dim item1 As New ListViewItem(New String() _
{"Code: The Hidden Language of Computer Hardware and Software", "Petzold, Charles", "2000"})
Dim item2 As New ListViewItem(New String() _
{"Programming Windows with C#", "Petzold, Charles", "2001"})
Dim item3 As New ListViewItem(New String() _
{"Coding Techniques for Microsoft Visual Basic .NET", "Connell, John", "2001"})
Dim item4 As New ListViewItem(New String() _
{"C# for Java Developers", "Jones, Allen / Freeman, Adam", "2002"})
Dim item5 As New ListViewItem(New String() _
{"Microsoft .NET XML Web Services Step by Step", "Jones, Allen / Freeman, Adam", "2002"})
Dim gr As ListViewGroup
gr = New ListViewGroup("Skupina A", HorizontalAlignment.Left)
ListView1.Groups.Add(gr)
item0.Group = gr
ListView1.Items.Add(item0)
item1.Group = gr
ListView1.Items.Add(item1)
item2.Group = gr
ListView1.Items.Add(item2)
gr = New ListViewGroup("Skupina B", HorizontalAlignment.Left)
ListView1.Groups.Add(gr)
item3.Group = gr
ListView1.Items.Add(item3)
item4.Group = gr
ListView1.Items.Add(item4)
gr = New ListViewGroup("Skupina C", HorizontalAlignment.Left)
ListView1.Groups.Add(gr)
item5.Group = gr
ListView1.Items.Add(item5)
End Sub
Sub VypisSkupiny()
Debug.Print("-------Vypisujem skupiny-------")
Dim i As Integer
For i = 0 To Me.ListView1.Groups.Count - 1
Debug.Print(Me.ListView1.Groups(i).ToString)
Next
End Sub