另:
在点击数字列头的事件中,首先将数字变一下格式,将列的内容变为: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