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

关注

转载最新推荐文章于 2026-08-16 07:32:47 发布 5.3k 阅读 AI 写同款· GEO 优化 ›

使用vb.net 对 Windows Form 按列排序 ListView 项目使用 Windows Form 按列排序 ListView 项目摘要：说明如何根据所单击的列在 Microsoft .NET 中的 ListView 控件提供项目排序。简介ListView 控件是显示文件系统信息和显示 XML 或数据库数据的非常好的方式。ListView 控件通常用于显示表示项目以及项目文本的图形图标。此外，ListView 控件还可以用于显示有关子项目中项目的其他阅读详情

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