Jak ovládací prvek ListView seøadit podle sloupce v jazyce Visual Basic.ÈISTÁ nebo Visual Basic 2005

compareResult = ObjectCompare.Compare(listviewX.SubItems(ColumnToSort).Text, listviewY.SubItems(ColumnToSort).Text)
				

Jak vytvoøit ukázkový projekt

1. Vytvoøení nového jazyka Visual Basic.NET nebo jazyka Visual Basic 2005 Windows aplikace project. Ve výchozím nastavení je vytvoøen formuláø Form1.
   
   Poznámka: Je nutné zmìnit kód v jazyce Visual Basic 2005. Ve výchozím nastavení vytvoøí aplikace Visual Basic dva soubory projektu pøi vytvoøení projektu model Windows Forms. Pokud formuláø pojmenován Formuláø1, dva soubory, které pøedstavují formuláøe jsou pojmenovány, Form1.vb a Form1.Designer.vb. Píšete kód v souboru Form1.vb. Návrháø model Windows Forms zapíše kód v souboru Form1.Designer.vb. Návrháø model Windows Forms používá klíèové slovo èásteèné provádìní formuláø1 rozdìlit do dvou samostatných souborù. Toto chování zabrání je proloženo kódu generovaném kódu.
   
   Další informace o nová vylepšení jazyka Visual Basic 2005 naleznete na webu Microsoft Developer Network (MSDN):
   http://msdn2.microsoft.com/en-us/library/ms379584 (vs.80) .aspx

   (http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx)
   Další informace o èásteèné tøídy a Návrháø model Windows Forms naleznete na webu MSDN:
   http://msdn2.microsoft.com/en-us/library/ms171843.aspx

   (http://msdn2.microsoft.com/en-us/library/ms171843.aspx)
2. Pøidat Zobrazení ListView øízení do formuláøe Form1. Velikost formuláøe je nìkolik cm široký podle nìkolik cm vysoké.
3. Vložte následující kód do tøídy formuláøe:

   Private lvwColumnSorter As ListViewColumnSorter
   					

4. Vložte následující kód do konstruktoru formuláøe, Po volání InitializeComponent Metoda:

   ' Create an instance of a ListView column sorter and assign it 
   ' to the ListView control.
   lvwColumnSorter = New ListViewColumnSorter()
   Me.ListView1.ListViewItemSorter = lvwColumnSorter
   					

5. Vložte následující kód do Zatížení událost formuláøe:

   Dim columnheader As ColumnHeader    ' Used for creating column headers.
   Dim listviewitem As ListViewItem    ' Used for creating ListView items.
   
   ' Make sure that the view is set to show details.
   ListView1.View = View.Details
   
   ' Create some ListView items consisting of first and last names.
   listviewitem = New ListViewItem("Mike")
   listviewitem.SubItems.Add("Nash")
   Me.ListView1.Items.Add(listviewitem)
   
   listviewitem = New ListViewItem("Kim")
   listviewitem.SubItems.Add("Abercrombie")
   Me.ListView1.Items.Add(listviewitem)
   
   listviewitem = New ListViewItem("Sunil")
   listviewitem.SubItems.Add("Koduri")
   Me.ListView1.Items.Add(listviewitem)
   
   listviewitem = New ListViewItem("Birgit")
   listviewitem.SubItems.Add("Seidl")
   Me.ListView1.Items.Add(listviewitem)
   
   ' Create some column headers for the data.
   columnheader = New ColumnHeader()
   columnheader.Text = "First Name"
   Me.ListView1.Columns.Add(columnheader)
   
   columnheader = New ColumnHeader()
   columnheader.Text = "Last Name"
   Me.ListView1.Columns.Add(columnheader)
   
   ' Loop through and size each column header to fit the column header text.
   For Each columnheader In Me.ListView1.Columns
       columnheader.Width = -2
   Next
   					

6. Vložte následující kód do ColumnClick události Zobrazení ListView:

   ' Determine if the clicked column is already the column that is 
   ' being sorted.
   If (e.Column = lvwColumnSorter.SortColumn) Then
       ' Reverse the current sort direction for this column.
       If (lvwColumnSorter.Order = SortOrder.Ascending) Then
           lvwColumnSorter.Order = SortOrder.Descending
       Else
           lvwColumnSorter.Order = SortOrder.Ascending
       End If
   Else
       ' Set the column number that is to be sorted; default to ascending.
       lvwColumnSorter.SortColumn = e.Column
       lvwColumnSorter.Order = SortOrder.Ascending
   End If
   
   ' Perform the sort with these new sort options.
   Me.ListView1.Sort()
   					

7. V Projekt nabídky, klepnìte na tlaèítko Pøidání tøídy Pøidání nové tøídy do projektu.
8. Nahradit všechny výchozí kód nové tøídy se Následující kód:

   Imports System.Collections
   Imports System.Windows.Forms
   
   Public Class ListViewColumnSorter
       Implements System.Collections.IComparer
   
       Private ColumnToSort As Integer
       Private OrderOfSort As SortOrder
       Private ObjectCompare As CaseInsensitiveComparer
   
       Public Sub New()
           ' Initialize the column to '0'.
           ColumnToSort = 0
   
           ' Initialize the sort order to 'none'.
           OrderOfSort = SortOrder.None
   
           ' Initialize the CaseInsensitiveComparer object.
           ObjectCompare = New CaseInsensitiveComparer()
       End Sub
   
       Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
           Dim compareResult As Integer
           Dim listviewX As ListViewItem
           Dim listviewY As ListViewItem
   
           ' Cast the objects to be compared to ListViewItem objects.
           listviewX = CType(x, ListViewItem)
           listviewY = CType(y, ListViewItem)
   
           ' Compare the two items.
           compareResult = ObjectCompare.Compare(listviewX.SubItems(ColumnToSort).Text, listviewY.SubItems(ColumnToSort).Text)
   
           ' Calculate the correct return value based on the object 
           ' comparison.
           If (OrderOfSort = SortOrder.Ascending) Then
               ' Ascending sort is selected, return typical result of 
               ' compare operation.
               Return compareResult
           ElseIf (OrderOfSort = SortOrder.Descending) Then
               ' Descending sort is selected, return negative result of 
               ' compare operation.
               Return (-compareResult)
           Else
               ' Return '0' to indicate that they are equal.
               Return 0
           End If
       End Function
   
       Public Property SortColumn() As Integer
           Set(ByVal Value As Integer)
               ColumnToSort = Value
           End Set
   
           Get
               Return ColumnToSort
           End Get
       End Property
   
       Public Property Order() As SortOrder
           Set(ByVal Value As SortOrder)
               OrderOfSort = Value
           End Set
   
           Get
               Return OrderOfSort
           End Get
       End Property
   End Class
   					

9. Uložit, sestavit a spustit ukázkový projekt.
10. Klepnìte na rùzných záhlaví sloupcù v Zobrazení ListView ovládací prvek. Pokud klepnete na záhlaví, obsah Zobrazení ListView øízení jsou seøazeny ve vzestupném poøadí podle sloupce, klepnutí na tlaèítko. Klepnete-li na stejné záhlaví sloupce znovu, je seøazen sloupec v sestupném poøadí.

Zpìt nahoru | Dejte nám zpìtnou vazbu