VB6-ListView的排序和点滴

博客主要围绕VB展开,介绍通过创建临时列排序避免字符串比较漏洞。还提及测试排序效果使用VBUnit或ComUnit效果不佳。重点探讨在VB6实现AOP功能的方法,如将新语言放条件编译、编译前注入代码,对比G#与VB6 Aop Add - Ins,指出G#功能更强大。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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

None.gifPublic Enum ListviewSortOrder
None.gif    lsoAscending 
= 0
None.gif    lsoDescending 
= 1
None.gif
End Enum
None.gif
None.gif
Public Sub SortItem(lvwObject As ListView, ColumnHeader As MSComctlLib.ColumnHeader, SortOrder As ListviewSortOrder, Optional FormatString As String = "##########.##########")
None.gif    
Dim TempColumnHeader As ColumnHeader
None.gif    
Dim i As Integer
None.gif    
With lvwObject
None.gif        
Set TempColumnHeader = lvwObject.ColumnHeaders.Add(, "TempColumn")
None.gif        
For i = 1 To .ListItems.Count
None.gif            
If ColumnHeader.Index = 1 Then
None.gif                .ListItems(i).SubItems(TempColumnHeader.Index 
- 1= Format(.ListItems(i).Text, FormatString)
None.gif            
Else
None.gif                .ListItems(i).SubItems(TempColumnHeader.Index 
- 1= Format(.ListItems(i).SubItems(ColumnHeader.Index - 1), FormatString)
None.gif            
End If
None.gif        
Next
None.gif        .Sorted 
= True
None.gif        .SortOrder 
= SortOrder
None.gif        .SortKey 
= TempColumnHeader.Index - 1
None.gif        .Sorted 
= False
None.gif        .ColumnHeaders.Remove 
"TempColumn"
None.gif    
End With
None.gif
End Sub
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)支持插入代码的插入前执行,这个有点难弄

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值