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