Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
...
Private Sub Use_Checkboxes_in_WinListView_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' Use the data from the 'Customers' table in the Northwind database
Me.CustomersTableAdapter.Fill(Me.NWindDataSet.Customers)
' Set the control's View property to 'List'
Me.ultraListView1.View = UltraListViewStyle.List
' For the second control, set MultiColumn to false
Me.UltraListView2.View = UltraListViewStyle.List
Me.UltraListView2.ViewSettingsList.MultiColumn = False
' Set the CheckBoxStyle property to 'CheckBox'
Me.ultraListView1.ViewSettingsList.CheckBoxStyle = CheckBoxStyle.CheckBox
' Iterate the Rows collection of the 'Customers' table
' and add an item for each customer
Dim i As Integer
For i = 0 To Me.NWindDataSet.Customers.Rows.Count - 1
Dim row As DataRow = Me.NWindDataSet.Customers.Rows(i)
Dim customerID As String = row("CustomerID")
Dim companyName As String = row("CompanyName")
Me.ultraListView1.Items.Add(customerID, companyName)
Next
End Sub
Private Sub btnGetCheckedItems_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' List the customers that were checked by the end user
' Clear the previous list
Me.UltraListView2.Items.Clear()
' Get a reference to the control's CheckedItems collection
Dim checkedItems As UltraListViewCheckedItemsCollection = Me.ultraListView1.CheckedItems
' Iterate the CheckedItems collection and add the company names
' to the second UltraListView control.
Dim i As Integer
For i = 0 To checkedItems.Count - 1
Dim checkedItem As UltraListViewItem = checkedItems(i)
Me.UltraListView2.Items.Add(checkedItem.Key, checkedItem.Value)
Next
End Sub