导航

« CheckedListBox 全选 反选 vb.netDreamweaver 图片热点(热区)  »

vb.net (2008)单击ListView列标题实现项排序功能 分享

VB.NET

 vb.net (2008)单击ListView列标题实现项排序功能(似乎不太完美):
说明:ListView1是一个ListView,添加ColumnClick事件处理函数ListView1_ColumnClick

折叠ASP/Visual Basic Code复制内容到剪贴板
  1. Private Sub ListView1_ColumnClick(ByVal sender As System.ObjectByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick   
  2.   
  3.     If ListView1.Sorting = SortOrder.Ascending Then  
  4.         ListView1.Sorting = SortOrder.Descending   
  5.     Else  
  6.         ListView1.Sorting = SortOrder.Ascending   
  7.     End If  
  8.     Me.ListView1.ListViewItemSorter = New ListViewItemComparer(e.Column, ListView1.Sorting)   
  9. End Sub  
  10.   
  11. Class ListViewItemComparer   
  12.     Implements IComparer   
  13.   
  14.     Private col As Integer  
  15.     Private sor As SortOrder   
  16.     Public Sub New()   
  17.         col = 0   
  18.     End Sub  
  19.   
  20.     Public Sub New(ByVal column As IntegerByVal sort As SortOrder)   
  21.         col = column   
  22.         sor = sort   
  23.     End Sub  
  24.   
  25.     Public Function Compare(ByVal x As ObjectByVal y As ObjectAs Integer _   
  26.        Implements IComparer.Compare   
  27.         If sor = SortOrder.Ascending Then  
  28.             If col = 0 Then  
  29.                 Return Integer.Parse(CType(x, ListViewItem).SubItems(col).Text) - Integer.Parse(CType(y, ListViewItem).SubItems(col).Text)   
  30.             Else  
  31.                 Return [String].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)   
  32.             End If  
  33.         Else  
  34.             If col = 0 Then  
  35.                 Return Integer.Parse(CType(y, ListViewItem).SubItems(col).Text) - Integer.Parse(CType(x, ListViewItem).SubItems(col).Text)   
  36.             Else  
  37.                 Return [String].Compare(CType(y, ListViewItem).SubItems(col).Text, CType(x, ListViewItem).SubItems(col).Text)   
  38.             End If  
  39.         End If  
  40.     End Function  
  41. End Class  

 

文章来源:http://blog.csdn.net/netcoder/archive/2007/09/07/1776453.aspx

  • 顶一下





原创文章如转载,请注明:转载自落日故乡

本文链接地址:http://www.spersky.com/post/351.html

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

内容搜索


常用链接

最新评论及回复

Powered By Z-Blog

Copyright spersky All Rights Reserved.Theme Moonlight,Calf modified.