Public ?Enum?ListviewSortOrder
????lsoAscending? = ? 0
????lsoDescending? = ? 1
End ?Enum

Public ? Sub ?SortItem(lvwObject? As ?ListView,?ColumnHeader? As ?MSComctlLib.ColumnHeader,?SortOrder? As ?ListviewSortOrder,?Optional?FormatString? As ? String ? = ? " ##########.########## " )
???? Dim ?TempColumnHeader? As ?ColumnHeader
???? Dim ?i? As ? Integer
???? With ?lvwObject
???????? Set ?TempColumnHeader? = ?lvwObject.ColumnHeaders.Add(,? " TempColumn " )
???????? For ?i? = ? 1 ? To ?.ListItems.Count
???????????? If ?ColumnHeader.Index? = ? 1 ? Then
????????????????.ListItems(i).SubItems(TempColumnHeader.Index? - ? 1 )? = ?Format(.ListItems(i).Text,?FormatString)
???????????? Else
????????????????.ListItems(i).SubItems(TempColumnHeader.Index? - ? 1 )? = ?Format(.ListItems(i).SubItems(ColumnHeader.Index? - ? 1 ),?FormatString)
???????????? End ? If
???????? Next
????????.Sorted? = ? True
????????.SortOrder? = ?SortOrder
????????.SortKey? = ?TempColumnHeader.Index? - ? 1
????????.Sorted? = ? False
????????.ColumnHeaders.Remove? " TempColumn "
???? End ? With
End?Sub

這段代碼的用意比較明顯，就是通過(guò)創(chuàng)建一個(gè)臨時(shí)的列來(lái)保存經(jīng)過(guò)格式化的數(shù)值，然后在臨時(shí)列進(jìn)行排序，就可以避免字符串比較帶來(lái)的漏洞了，當(dāng)然使用完成后要干掉那個(gè)臨時(shí)列了。

在使用中需要進(jìn)行測(cè)試各種格式的排序效果，想使用VBUnit或者ComUnit，但是剛剛使用，效果不是很好，還在弄，現(xiàn)在的關(guān)鍵不是使用，而是想了解，它是如何做的，慢慢來(lái)吧。

這幾天還是比較關(guān)心如何在VB6實(shí)現(xiàn)AOP功能，其實(shí)還是覺(jué)得G#的語(yǔ)法比較優(yōu)秀的，而且看起來(lái)也清楚多了。但是如何在VB里邊嵌入新的語(yǔ)法格式呢，這些天一直困擾我，在經(jīng)過(guò)試驗(yàn)后，覺(jué)得下邊兩種方法還是可以的：
（1）將新語(yǔ)言放到條件編譯中，如下邊代碼
#If Aop then
??? .....
#End if
但是我認(rèn)為如果將語(yǔ)法這樣定義，還不如使用配置文件痛快，而且代碼在注入后是明碼的，不爽。

（2）采用一個(gè)比較變態(tài)的辦法，就是在文件中任意嵌入新定義的語(yǔ)法，然后在編譯的時(shí)候做手腳，就是在VB執(zhí)行編譯前將代碼注入，當(dāng)然這種注入的代碼是符合VB語(yǔ)法的，然后在進(jìn)行編譯，當(dāng)然這種手法也是換湯不換藥，不過(guò)我還是比較喜歡這一種，當(dāng)然需要對(duì)VB的IDE進(jìn)行一些改造了，可能比較麻煩了。

通過(guò)對(duì)G#比較可以看到，在與VB6 Aop Add-Ins相比，功能要強(qiáng)大的多：
（1）繼承的使用
（2）語(yǔ)法的靈活性
（3）支持正則表達(dá)式格式的多匹配
（4）支持插入代碼的插入前執(zhí)行，這個(gè)有點(diǎn)難弄

VB6－ListView的排序和點(diǎn)滴