单击ListView 列表头实现排序

单击ListView 列表头实现排序


ListView 控件有排序的功能！是一段代码实现排序的功能。并在列表头加上了排序的符号
代码如下：
Dim Li_i As Integer
Dim Li_Count As Integer
Dim li_len As Integer
Dim ls_num As String '总数量
Dim ls_amount As String '总金额
Dim ls_return As String '毛利

If lstmx.ListItems.Count = 0 Then Exit Sub ‘没有数据退出

'将合计列中的数据取出来
ls_num = lstmx.ListItems.Item(lstmx.ListItems.Count).SubItems(8)
ls_amount = lstmx.ListItems.Item(lstmx.ListItems.Count).SubItems(10)
ls_return = lstmx.ListItems.Item(lstmx.ListItems.Count).SubItems(11)

lstmx.ListItems.Remove lstmx.ListItems.Count '移出合计列。使合计列不参加排序

lstmx.Sorted = gs_bl_True'排序设为真

Li_Count = lstmx.ColumnHeaders.Count
For Li_i = 1 To Li_Count
li_len = InStr(Trim(lstmx.ColumnHeaders.Item(Li_i).Text), "△")
If li_len > 0 Then _
lstmx.ColumnHeaders.Item(Li_i).Text = _
Left(lstmx.ColumnHeaders.Item(Li_i).Text, li_len - 1)

li_len = InStr(Trim(lstmx.ColumnHeaders.Item(Li_i).Text), "▽")
If li_len > 0 Then _
lstmx.ColumnHeaders.Item(Li_i).Text = _
Left(lstmx.ColumnHeaders.Item(Li_i).Text, li_len - 1)

li_len = 0
Next

lstmx.SortKey = ColumnHeader.Index - 1
lstmx.SortOrder = Abs(Not lstmx.SortOrder = 1)

If lstmx.SortOrder = 0 Then '升序设为假
ColumnHeader.Text = ColumnHeader.Text & "△"
Else '降序
ColumnHeader.Text = ColumnHeader.Text & "▽"
End If

lstmx.Sorted = gs_bl_False '排序为假
Li_Count = lstmx.ListItems.Count
lstmx.ListItems.Add , , "合计:" '添加合计列
lstmx.ListItems.Item(Li_Count + 1).Bold = gs_bl_True
lstmx.ListItems.Item(Li_Count + 1).ForeColor = vbRed
lstmx.ListItems.Item(Li_Count + 1).SubItems(8) = ls_num
lstmx.ListItems.Item(Li_Count + 1).SubItems(10) = ls_amount
lstmx.ListItems.Item(Li_Count + 1).SubItems(11) = ls_return