modsortcallback.bas

很棒的网页音乐播放器,可以嵌入网页。界面很漂亮

Attribute VB_Name = "modSortCallback"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/05/08
'描    述：另类自定义listview控件源码(支持真彩色图标)
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'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