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