VB6 中善用 ByRef 提升速度

最新推荐文章于 2023-08-27 11:24:22 发布

原创

最新推荐文章于 2023-08-27 11:24:22 发布 · 671 阅读

0 ·

CC 4.0 BY-SA版权

通过对比ByRef和ByVal在VB6中调用API的效率，发现ByRef在某些情况下能提高代码执行速度达16倍。示例代码展示了在添加ComboBox字符串时，使用ByRef的明显优势。但需要注意，不是所有API都适合使用ByRef，需考虑API内部是否修改参数或后续是否继续使用参数。

和.Net 中不同，VB6 中默认是使用 ByRef 来传递参数了，看来似乎没有什么可以优化得地方。

可是，实际上如果你调用 API 得话，从 API浏览器复制下来得代码却是强制使用 ByVal 传参得

这就给了我们优化得机会。

我又重新使用该代码分别测试了一下 ByRef ,ByVal 得区别，结果很振奋： ByRef 比 ByVal 提高了16倍

代码如下，插入ComboBox 得字符串越长，越能显示 ByRef 得威力

Option Explicit
Private Declare Function SendMessageByRef Lib "user32" Alias "SendMessageA" (ByRef hWnd As Long, ByRef wMsg As Long, ByRef wParam As Long, ByRef lParam As Any) As Long
Private Declare Function SendMessageByVal Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const CB_ADDSTRING = &H143
Private Sub Command1_Click()

Dim II As Long
Dim t As Long
Dim s As String

Combo1.Clear
t = GetTickCount()

'使用API ByRef
For II = 1 To 10000
s = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
重新赋值以改变地址
SendMessageByRef Combo1.hWnd, CB_ADDSTRING, 0, s

MsgBox "ByRef " & GetTickCount - t

Combo1.Clear
t = GetTickCount()

' 使用API ByVal
For II = 1 To 10000
s = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
SendMessageByVal Combo1.hWnd, CB_ADDSTRING, 0, s

MsgBox "ByVal " & GetTickCount - t

Combo1.Clear
t = GetTickCount()

' 使用普通 ComboBox Add
For II = 1 To 10000
s = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Combo1.AddItem s

MsgBox "ComboBox Add " & GetTickCount - t

End Sub