VB6-ListView的排序和点滴
在VB6 的ListView的排序是比较烦人的,因为它只是按照字符串进行排序,因此,数值的排序就惨不忍睹了,周六在陪老婆值班的时候,看到了一片文章,很爽,今天试验了一下,还好,代码如下:
Public Enum ListviewSortOrder
lsoAscending = 0
lsoDescending = 1
End Enum
![](/Images/OutliningIndicators/None.gif)
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
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
这段代码的用意比较明显,就是通过创建一个临时的列来保存经过格式化的数值,然后在临时列进行排序,就可以避免字符串比较带来的漏洞了,当然使用完成后要干掉那个临时列了。
在使用中需要进行测试各种格式的排序效果,想使用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)支持插入代码的插入前执行,这个有点难弄