Question

VB里 列表视图里项的自动排序问题

如图。下面是一个列表视图控件。 要实现以分数的大小来排列电影的顺序，该怎么办？
用sorted是以电影的名称来排序而不是以分数的大小啊？
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ListView1.ListItems.Count < 2 Then Exit Sub
ListView1.SortKey = ColumnHeader.SubItemIndex
If Val(ColumnHeader.Tag) = 0 Then
ListView1.SortOrder = lvwDescending
ColumnHeader.Tag = 1
Else
ListView1.SortOrder = lvwAscending
ColumnHeader.Tag = 0
End If
ListView1.Sorted = True
End Sub
解释一下行吗

Answer 1

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ListView1.ListItems.Count < 2 Then Exit Sub '如果小于两条记录则退出本过程
ListView1.SortKey = ColumnHeader.SubItemIndex '设置排序关键字，按第一列排序设为0，二列为1，依次类推
If Val(ColumnHeader.Tag) = 0 Then '降序/升序切换
ListView1.SortOrder = lvwDescending
ColumnHeader.Tag = 1
Else
ListView1.SortOrder = lvwAscending
ColumnHeader.Tag = 0
End If
ListView1.Sorted = True '允许排序
End Sub

Answer 2

假设ListView的名称为ListView1
ListView1.SortKey = 1
ListView1.SortOrder = lvwAscending（升序）或lvwDescending （降序）
ListView1.Sorted = True

Answer 3

好狂