?? modsortcallback.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -