Bagaimana cara untuk menyortir ListView kontrol oleh kolom dalam Visual Basic.BERSIH atau pada Visual Basic 2005

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

Bagaimana membangun contoh proyek

1. Buat baru Visual Basic.NET atau Visual Basic 2005 Windows aplikasi proyek. Form1 dibuat secara default.
   
   Catatan Anda harus mengubah kode pada Visual Basic 2005. Secara default, Visual Basic menciptakan dua file untuk proyek ketika Anda membuat proyek Windows Forms. Jika bentuk bernama Form1, dua file yang mewakili bentuk yang bernama Form1.vb dan Form1.Designer.vb. Anda menulis kode dalam Form1.vb file. Windows Forms Designer menulis kode dalam Form1.Designer.vb file. Windows Forms Designer menggunakan kata kunci parsial untuk membagi pelaksanaan Form1 menjadi dua file terpisah. Perilaku ini mencegah kode yang dihasilkan desainer yang diselingi dengan kode Anda.
   
   Untuk informasi lebih lanjut tentang tambahan bahasa Visual Basic 2005 baru, kunjungi Web site Microsoft Developer Network (MSDN) berikut:
   .aspx http://msdn2.Microsoft.com/en-us/library/ms379584 (vs.80)

   (http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx)
   Untuk informasi lebih lanjut tentang kelas parsial dan desainer bentuk Windows, kunjungi Website MSDN berikut:
   http://msdn2.Microsoft.com/en-us/library/ms171843.aspx

   (http://msdn2.microsoft.com/en-us/library/ms171843.aspx)
2. Tambahkan ListView mengontrol Form1. Ukuran formulir untuk beberapa inci lebar oleh beberapa inci tinggi.
3. Paste kode berikut ke kelas untuk bentuk:

   Private lvwColumnSorter As ListViewColumnSorter
   					

4. Paste kode berikut ke konstruktor bentuk, Setelah panggilan untuk InitializeComponent metode:

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

5. Paste kode berikut ke Beban acara dalam bentuk:

   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. Paste kode berikut ke ColumnClick acara untuk 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. Pada Project menu, klik Menambahkan kelas menambahkan kelas baru untuk proyek.
8. Mengganti semua kode standar dalam kelas baru dengan kode berikut:

   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. Simpan, membangun, dan kemudian jalankan contoh proyek.
10. Klik header kolom berbagai di ListView kontrol. Ketika Anda klik header, isi ListView kontrol diurutkan dalam urutan yang didasarkan pada kolom yang Anda klik. Ketika Anda klik header kolom yang sama lagi, kolom disortir dalam urutan.

Kembali ke atas | Berikan Masukan