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

這段代碼的用意比較明顯，就是通過創建一個臨時的列來保存經過格式化的數值，然后在臨時列進行排序，就可以避免字符串比較帶來的漏洞了，當然使用完成后要干掉那個臨時列了。

在使用中需要進行測試各種格式的排序效果，想使用VBUnit或者ComUnit，但是剛剛使用，效果不是很好，還在弄，現在的關鍵不是使用，而是想了解，它是如何做的，慢慢來吧。

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

（2）采用一個比較變態的辦法，就是在文件中任意嵌入新定義的語法，然后在編譯的時候做手腳，就是在VB執行編譯前將代碼注入，當然這種注入的代碼是符合VB語法的，然后在進行編譯，當然這種手法也是換湯不換藥，不過我還是比較喜歡這一種，當然需要對VB的IDE進行一些改造了，可能比較麻煩了。

通過對G#比較可以看到，在與VB6 Aop Add-Ins相比，功能要強大的多：
（1）繼承的使用
（2）語法的靈活性
（3）支持正則表達式格式的多匹配
（4）支持插入代碼的插入前執行，這個有點難弄

VB6－ListView的排序和點滴