如何在Listview列头加排序箭头

Question

使用lvwreport风格时点列头时怎么样才能加上排序箭头?
请各位高人提点

Answer 1

选中listview，按右键->属性，在图像列表和列首两个页面中有设置的

Answer 2

http://btmtz.mvps.org/vbexplorer/vbexplorer.zip参考这里面的代码

Answer 3

http://btmtz.mvps.org/listview/lvheadersorticons.zip或者看这个更精确一点，不用在上面那个里面仔细找了

Answer 4

建一个过程
Public Sub SortListView(plvListView As Object, ByVal pnIndex As Integer)
    Dim nTemp As Integer
    If plvListView.Tag = "" Then
        nTemp = -1
    Else
        nTemp = CInt(plvListView.Tag)
    End If
    
    If nTemp = pnIndex - 1 Then
        plvListView.SortOrder = IIf(plvListView.SortOrder = lvwAscending, lvwDescending, lvwAscending)
    Else
        plvListView.Tag = pnIndex - 1
        plvListView.SortOrder = lvwAscending
    End If
    plvListView.SortKey = pnIndex - 1
    plvListView.Sorted = True
    If Not plvListView.SelectedItem Is Nothing Then
        plvListView.SelectedItem.EnsureVisible
    End If
End SubPrivate Sub lvbus_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    SortListView 控件名, ColumnHeader.Index
End Sub