A simple introduction to using the Vb Listview control to output a list of information using columns and rows.

Code used is here:

Global variable:
Dim CurrentItem As Integer = 0

Button sub-routine code:
If radBread.Checked Then
lsvOrderDetails.Items.Add("Bread")
ElseIf radBaguette.Checked Then
lsvOrderDetails.Items.Add("Baguette")
Else
lsvOrderDetails.Items.Add("Roll")
End If



If radCheese.Checked Then
lsvOrderDetails.Items(CurrentItem).SubItems.Add("Cheese")
ElseIf radChicken.Checked Then
lsvOrderDetails.Items(CurrentItem).SubItems.Add("Chicken")
Else
lsvOrderDetails.Items(CurrentItem).SubItems.Add("Salad")
End If
lsvOrderDetails.Items(CurrentItem).SubItems.Add(txtQuantity.Text)

'Increment row number for next row
CurrentItem += 1

свернуть