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 = "##
vb listview>###.>>")
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）⽀持插⼊代码的插⼊前执⾏，这个有点难弄
通信原理简明教程第四版第四章课后答案
« 上一篇
软件开发中的API设计与使用技巧(三)
下一篇 »

发表评论