小技巧：ListView如何按数字大小排序

最新推荐文章于 2019-07-14 17:12:58 发布

转载最新推荐文章于 2019-07-14 17:12:58 发布 · 5.3k 阅读

文章标签：

#listview #integer #windows #date #api #微软

本文介绍如何使ListView控件按照数值而非默认的文字顺序进行排序的方法。一种方式是通过修改ListView的Sorted属性并自定义排序程序；另一种是使用Windows API的LVM_SORTITEMS消息指定比较函数。文中还提供了一个具体的VB代码示例，展示如何通过格式化数字来实现正确的数值排序。

ListView默认是按照文字排序，如果要按照数值排序，一个是将Sorted属性设为False，而自己编写一个排序程序做这件事。另一个办法是利用Windows API的LVM_SORTITEMS消息来指定自己的一个比较大小的函数来取代ListView默认的函数。具体的做法请参考微软的Knowledge Base的文章：“ Q170884 OWTO: Sort a ListView Control by Date”。

另：
在点击数字列头的事件中,首先将数字变一下格式,将列的内容变为:format(列的内容,"000000000000")，再将listview控件的索引值设为TRUE,最后将列的内容改回来val(列的内容)。

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.SortKey = ColumnHeader.Index - 1
' 设置 Sorted 为真对列表进行排序
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).SubItems(8) = Format(ListView1.ListItems(i).SubItems(8), "000000000000")
Next
ListView1.Sorted = True
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).SubItems(8) = Val(ListView1.ListItems(i).SubItems(8))
Next
End Sub