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

来源：互联网发布：汽车人工智能系统编辑：程序博客网时间：2024/05/04 18:59

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