Imports Infragistics.Win Imports Infragistics.Win.UltraWinListView ' Get a reference to the 'Customers', 'Employees', and ' 'Orders' tables from the Northwind database Dim dataSet As DataSet = New DataSet() Me.customersAdapter.Fill(dataSet) Me.employeesAdapter.Fill(dataSet) Me.ordersAdapter.Fill(dataSet) Me.shippersAdapter.Fill(dataSet) Dim customersTable As DataTable = dataSet.Tables("Customers") Dim employeesTable As DataTable = dataSet.Tables("Employees") Dim ordersTable As DataTable = dataSet.Tables("Orders") Dim shippersTable As DataTable = dataSet.Tables("Shippers") ' Set the UltraListView's View property to 'Details' Me.ultraListView1.View = UltraListViewStyle.Details ' Set the UltraListView's AutoKeyboardSearch property to true, ' so the end user can perform alpha-numeric searches Me.ultraListView1.AutoKeyboardSearch = True ' Allow extended selection for items Me.ultraListView1.ItemSettings.SelectionType = SelectionType.Extended ' Enable HotTracking Me.ultraListView1.ItemSettings.HotTracking = true ' Show selected appearance colors when the control does not have focus Me.ultraListView1.ItemSettings.HideSelection = false ' Allow extended selection for items Me.ultraListView1.ItemSettings.SelectionType = SelectionType.Extended ' Disable editing for the UltraListView. Me.ultraListView1.ItemSettings.AllowEdit = DefaultableBoolean.False ' Display checkboxes next to the items Me.ultraListView1.ViewSettingsDetails.CheckBoxStyle = CheckBoxStyle.CheckBox Me.ultraListView1.ViewSettingsList.CheckBoxStyle = CheckBoxStyle.CheckBox ' Adjust the ImageSize property so that images are not displayed ' for the list styles Me.ultraListView1.ViewSettingsDetails.ImageSize = Size.Empty Me.ultraListView1.ViewSettingsList.ImageSize = Size.Empty ' Set the FullRowSelect property to true for Details view Me.ultraListView1.ViewSettingsDetails.FullRowSelect = True ' Clear the Items, Groups, and SubItemColumns collections Me.ultraListView1.Items.Clear() Me.ultraListView1.Groups.Clear() Me.ultraListView1.SubItemColumns.Clear() ' Populate the Groups collection from the 'Customers' table Dim dataRow As DataRow For Each dataRow In customersTable.Rows ' Add an UltraListViewGroup to represent this customer, using ' the value of the 'CustomerID' field for the group's Key. Dim group As UltraListViewGroup = Me.ultraListView1.Groups.Add(CType(dataRow("CustomerID"), String)) ' Assign the value of the 'CompanyName' field to the group's Text property. group.Text = CType(dataRow("CompanyName"), String) Next ' Set ShowGroups to true so that groups are shown Me.ultraListView1.ShowGroups = True ' Create a ValueList, which we will populate with the contents of ' the 'Employees' table. Use the value of the 'EmployeeID' field ' for the DataValue, and the employee's name for the DisplayText. ' Also, store a reference to the underlying DataRow in the ' ValueListItem's Tag property. Dim employeesValueList As ValueList = New ValueList() For Each dataRow In employeesTable.Rows Dim employeeName As String = String.Format("{0} {1}", dataRow("FirstName"), dataRow("LastName")) Dim valueListItem As ValueListItem = employeesValueList.ValueListItems.Add(dataRow("EmployeeID"), employeeName) valueListItem.Tag = dataRow Next ' Create a ValueList, which we will populate with the contents of ' the 'Shippers' table. Use the value of the 'ShipperID' field ' for the DataValue, and the shipper's name for the DisplayText. ' Also, store a reference to the underlying DataRow in the ' ValueListItem's Tag property. Dim shippersValueList As ValueList = New ValueList() For Each dataRow In shippersTable.Rows Dim shipperName As String = CType(dataRow("CompanyName"), String) Dim shipperID As Int32 = CType(dataRow("ShipperID"), Int32) Dim valueListItem As ValueListItem = shippersValueList.ValueListItems.Add(shipperID, shipperName) valueListItem.Tag = dataRow ' Create an Appearance for this shipper, and add it to the ' UltraListView's Appearances collection. Dim appearance As Infragistics.Win.Appearance = Me.ultraListView1.Appearances.Add(shipperName) Select Case shipperID Case 1 appearance.ForeColor = Color.Red Case 2 appearance.ForeColor = Color.Green Case 3 appearance.ForeColor = Color.Blue End Select Next ' Populate the SubItemColumns collection from the Columns in the 'Orders' table Me.PopulateSubItemColumnsCollection(ordersTable, employeesValueList, shippersValueList) ' Populate the Items collection from the Rows in the 'Orders' table Me.PopulateItemsCollection(ordersTable)
using Infragistics.Win; using Infragistics.Win.UltraWinListView; using System.Diagnostics; // Get a reference to the 'Customers', 'Employees', and // 'Orders' tables from the Northwind database DataSet dataSet = new DataSet(); this.customersAdapter.Fill( dataSet ); this.employeesAdapter.Fill( dataSet ); this.ordersAdapter.Fill( dataSet ); this.shippersAdapter.Fill( dataSet ); DataTable customersTable = dataSet.Tables["Customers"]; DataTable employeesTable = dataSet.Tables["Employees"]; DataTable ordersTable = dataSet.Tables["Orders"]; DataTable shippersTable = dataSet.Tables["Shippers"]; // Set the UltraListView's View property to 'Details' this.ultraListView1.View = UltraListViewStyle.Details; // Allow extended selection for items this.ultraListView1.ItemSettings.SelectionType = SelectionType.Extended; // Enable HotTracking this.ultraListView1.ItemSettings.HotTracking = true; // Show selected appearance colors when the control does not have focus this.ultraListView1.ItemSettings.HideSelection = false; // Set the UltraListView's AutoKeyboardSearch property to true, // so the end user can perform alpha-numeric searches this.ultraListView1.AutoKeyboardSearch = true; // Disable editing for the UltraListView. this.ultraListView1.ItemSettings.AllowEdit = DefaultableBoolean.False; // Display checkboxes next to the items this.ultraListView1.ViewSettingsDetails.CheckBoxStyle = CheckBoxStyle.CheckBox; this.ultraListView1.ViewSettingsList.CheckBoxStyle = CheckBoxStyle.CheckBox; // Adjust the ImageSize property so that images are not displayed // for the list styles this.ultraListView1.ViewSettingsDetails.ImageSize = Size.Empty; this.ultraListView1.ViewSettingsList.ImageSize = Size.Empty; // Set the FullRowSelect property to true for Details view this.ultraListView1.ViewSettingsDetails.FullRowSelect = true; // Clear the Items, Groups, and SubItemColumns collections this.ultraListView1.Items.Clear(); this.ultraListView1.Groups.Clear(); this.ultraListView1.SubItemColumns.Clear(); // Populate the Groups collection from the 'Customers' table foreach( DataRow dataRow in customersTable.Rows ) { // Add an UltraListViewGroup to represent this customer, using // the value of the 'CustomerID' field for the group's Key. UltraListViewGroup group = this.ultraListView1.Groups.Add( dataRow["CustomerID"] as string ); // Assign the value of the 'CompanyName' field to the group's Text property. group.Text = dataRow["CompanyName"] as string; } // Set ShowGroups to true so that groups are shown this.ultraListView1.ShowGroups = true; // Create a ValueList, which we will populate with the contents of // the 'Employees' table. Use the value of the 'EmployeeID' field // for the DataValue, and the employee's name for the DisplayText. // Also, store a reference to the underlying DataRow in the // ValueListItem's Tag property. ValueList employeesValueList = new ValueList(); foreach( DataRow dataRow in employeesTable.Rows ) { string employeeName = string.Format( "{0} {1}", dataRow["FirstName"], dataRow["LastName"] ); ValueListItem valueListItem = employeesValueList.ValueListItems.Add( dataRow["EmployeeID"], employeeName ); valueListItem.Tag = dataRow; } // Create a ValueList, which we will populate with the contents of // the 'Shippers' table. Use the value of the 'ShipperID' field // for the DataValue, and the shipper's name for the DisplayText. // Also, store a reference to the underlying DataRow in the // ValueListItem's Tag property. ValueList shippersValueList = new ValueList(); foreach( DataRow dataRow in shippersTable.Rows ) { string shipperName = dataRow["CompanyName"] as string; int shipperID = (int)dataRow["ShipperID"]; ValueListItem valueListItem = shippersValueList.ValueListItems.Add( shipperID, shipperName ); valueListItem.Tag = dataRow; // Create an Appearance for this shipper, and add it to the // UltraListView's Appearances collection. Infragistics.Win.Appearance appearance = this.ultraListView1.Appearances.Add( shipperName ); switch ( shipperID ) { case 1: { appearance.ForeColor = Color.Red; break; } case 2: { appearance.ForeColor = Color.Green; break; } case 3: { appearance.ForeColor = Color.Blue; break; } } } // Populate the SubItemColumns collection from the Columns in the 'Orders' table this.PopulateSubItemColumnsCollection( ordersTable, employeesValueList, shippersValueList ); // Populate the Items collection from the Rows in the 'Orders' table this.PopulateItemsCollection( ordersTable );
Target Platforms: Windows 10, Windows 8.1, Windows 8, Windows 7, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2