怎么实现listview的排序(已经解决）

kiko2006

就是一个listview，我点击它的一列，就自动的像excel表中的那样，自动就排除一个序出来呢？
怎么写这个代码呢？这个应该是listview的什么事件呢？

[ 本帖最后由 kiko2006 于 2010-5-28 09:09 编辑 ]

abdias520

提个实际的需求出来，并上传你的附件

拿笔小薪

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With ListView1
.SortKey = ColumnHeader.Index - 1
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else: .SortOrder = lvwAscending
.Sorted = True
End If
End With
End Sub

kiko2006

谢谢楼上的小新，谢谢，就是这个，Thanks！！！！！

purpledragoon

学习了，谢谢！

purpledragoon

试了一下，可以实现排序，但是想改一下变成数据降序排列要怎么做？论坛里找不到相关的说明，哪位大大帮个手！谢谢！

y1983y

purpledragoon 发表于 2010-10-8 15:01
试了一下，可以实现排序，但是想改一下变成数据降序排列要怎么做？论坛里找不到相关的说明，哪位大大帮个手 ...

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Dim i As Long
    With ListView1
        For i = 1 To .ColumnHeaders.Count '还原无三角形的标题
            .ColumnHeaders(i).Text = strTitle(i)
        Next
        If .SortKey = ColumnHeader.Index - 1 Then '排序设置，交替执行。每列第一次排序默认升序
            .SortOrder = IIf(.SortOrder, 0, 1)
        Else
            .SortKey = ColumnHeader.Index - 1
            .SortOrder = lvwAscending
        End If
        LvmSort ListView1, .SortKey, arrSort(.SortKey), .SortOrder '调用自定义排序程序
        
        ColumnHeader.Text = IIf(.SortOrder, "▼" & ColumnHeader.Text, "▲" & ColumnHeader.Text) '在标题上显示升降序三角，也可用ColumnHeader.Icon属性，只要在ImageList放置两个三角形图片
    End With
End Sub

Public Function LvmSort(lv As ListView, ByVal Index As Long, ByVal ItemType As LVItemTypes, ByVal SortOrder As LVSortTypes) As Boolean
    With lv
        .Sorted = False
        .SortKey = Index
        .SortOrder = SortOrder
        m_lvSortColumn = Index
        m_lvSortType = ItemType
        m_lvHWnd = .hwnd
        Call SendMessageLong(.hwnd, LVM_SORTITEMS, SortOrder, AddressOf LvmCompareProc)
    End With
End Function

Private Function LvmCompareProc(ByVal lParam1 As Long, ByVal lParam2 As Long, ByVal SortOrder As Long) As Long
    Dim dat1 As Date, dat2 As Date
    Dim dbl1 As Double, dbl2 As Double
    Dim str1 As String, str2 As String
    str1 = LvmGetItemText(lParam1, m_lvHWnd)
    str2 = LvmGetItemText(lParam2, m_lvHWnd)
    Select Case m_lvSortType
    Case lvAlphabetic
        LvmCompareProc = StrComp(str1, str2, vbTextCompare)
    Case lvNumber
        If IsNumeric(str1) Then dbl1 = CDbl(str1) Else dbl1 = -4.94065645841247E-324
        If IsNumeric(str2) Then dbl2 = CDbl(str2) Else dbl2 = -4.94065645841247E-324
        LvmCompareProc = Sgn(dbl1 - dbl2)
    Case lvDate
        If IsDate(str1) Then dat1 = CDate(str1) Else dat1 = CDate(0)
        If IsDate(str2) Then dat2 = CDate(str2) Else dat2 = CDate(0)
        LvmCompareProc = Sgn(dat1 - dat2)
    Case lvBinary
        LvmCompareProc = StrComp(str1, str2, vbBinaryCompare)
    Case Else
        LvmCompareProc = StrComp(str1, str2, vbTextCompare)
    End Select
    If SortOrder = lvDescending Then LvmCompareProc = -LvmCompareProc
End Function

Private Function LvmGetItemText(lParam As Long, hwnd As Long) As String
    Dim tpyFind As LV_FINDINFO
    Dim tpyItem As LV_ITEM
    Dim Index As Long
    Dim lngRet As Long
    With tpyFind
        .flags = LVFI_PARAM
        .lParam = lParam
    End With
    Index = SendMessage(hwnd, LVM_FINDITEM, -1, tpyFind)
    With tpyItem
        .Mask = LVIF_TEXT
        .SubItem = m_lvSortColumn
        .Text = Space(32)
        .TextMax = Len(.Text)
    End With
    lngRet = SendMessage(hwnd, LVM_GETITEMTEXT, Index, tpyItem)
    If lngRet Then LvmGetItemText = Left$(tpyItem.Text, lngRet)
End Function

kiwihome

y1983y 发表于 2019-9-6 10:55
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Dim i As Lo ...

数值部份无法正常依数值打小排序，仍然是依文字排序，如何解决呢?

y1983y

kiwihome 发表于 2021-5-12 20:23
数值部份无法正常依数值打小排序，仍然是依文字排序，如何解决呢?

试试这个是否满足您的需求
http://club.excelhome.net/thread-1244921-1-1.html

danhanqing

拿笔小薪 发表于 2010-5-27 17:15
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With ListView1
. ...

提示用户定义类型未定义是怎么回事呢