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
' Northwind データベースの 'Customers' テーブルのデータを使用します。
Me.CustomersTableAdapter.Fill(Me.NWindDataSet.Customers)
' コントロールの View プロパティを 'List' に設定します。
Me.ultraListView1.View = UltraListViewStyle.List
' 2 つ目のコントロールは、MultiColumn を False に設定します。
Me.UltraListView2.View = UltraListViewStyle.List
Me.UltraListView2.ViewSettingsList.MultiColumn = False
' CheckBoxStyle プロパティを 'CheckBox' に設定します。
Me.ultraListView1.ViewSettingsList.CheckBoxStyle = CheckBoxStyle.CheckBox
' 'Customers' テーブルの Rows コレクションを反復処理し、
' 個々の顧客の項目を追加します。
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
' エンド ユーザーが選択した顧客をリストします。
' 前のリストを消去します。
Me.UltraListView2.Items.Clear()
' コントロールの CheckedItems コレクションへの参照を取得します。
Dim checkedItems As UltraListViewCheckedItemsCollection = Me.ultraListView1.CheckedItems
' CheckedItems コレクションを反復処理し、企業名を
' 2 つ目の UltraListView コントロールに追加します。
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