VB6－ListView的排序和点滴

在VB6 的ListView的排序是比较烦人的，因为它只是按照字符串进行排序，因此，数值的排序就惨不忍睹了，周六在陪老婆值班的时候，看到了一片文章，很爽，今天试验了一下，还好，代码如下：

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）支持插入代码的插入前执行，这个有点难弄