Attribute VB_Name = "modSortCallback"
'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發布日期：2007/05/08
'描    述：另類自定義listview控件源碼(支持真彩色圖標)
'網    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
'
'感謝您使用本站源碼，如果方便的話請給于本站一點支持，謝謝。
'
'本站物品:
'700MB容量的VB.NET源碼光盤(38元包快遞)
'支持支付寶交易:http://auction1.taobao.com/auction/0/item_detail-0db1-a8aba972995270433643e99d2e4ac592.jhtml
'也可以銀行匯款：http://www.mndsoft.com/sale/yh.png
'
'USB電腦遙控器 源碼光盤
'支持支付寶交易:http://auction1.taobao.com/auction/0/item_detail-0db1-dd4a9c3f6a5785231091b01d54af01fd.jhtml
'也可以銀行匯款：http://www.mndsoft.com/sale/yh.png
'
'如果您給于本站一點支持，本站將更好的利用自身優勢為您尋找您需要的代碼!
Option Explicit

Private m_lngSortCol    As Long
Private m_udeOrder      As SortOrderConstants

Public Property Get SortColumn() As Long
    SortColumn = m_lngSortCol
End Property

Public Property Let SortColumn(ByVal lngCol As Long)
    m_lngSortCol = lngCol
End Property

Public Property Get SortOrder() As SortOrderConstants
    SortOrder = m_udeOrder
End Property

Public Property Let SortOrder(ByVal udeVal As SortOrderConstants)
    m_udeOrder = udeVal
End Property

Public Function ColumnCompare(First As ListItem, Second As ListItem, ByVal unused1 As Long, ByVal unused2 As Long) As eCompareResult
    Dim lngRet  As Long
    
    lngRet = StrComp(First.Text(m_lngSortCol), Second.Text(m_lngSortCol), vbTextCompare)
    
    If m_udeOrder = SortDescending Then
        If lngRet = -1 Then
            lngRet = 1
        ElseIf lngRet = 1 Then
            lngRet = -1
        End If
    End If
    
    ColumnCompare = lngRet
End Function