ListView排序问题?
怎么样可以实现,单击相应的标题栏,实现排序!!
[解决办法]
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1
ListView1.SortOrder = lvwAscending
ListView1.Sorted = True
End Sub
[解决办法]
Private Sub LvMain_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
LvMain.Sorted = False
LvMain.SortKey = ColumnHeader.Index - 1
If LvMain.SortOrder = lvwAscending Then
LvMain.SortOrder = lvwDescending
ElseIf LvMain.SortOrder = lvwDescending Then
LvMain.SortOrder = lvwAscending
End If
LvMain.Sorted = True
End Sub