繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB6 中 善用 ByRef 提升速度
- ASP.NET
- VS 2008和.NET 3.5 Beta2新特性介绍
- VS 2008和.NET 3.5 Beta2常见问题的解决方案
- Asp.net 备份和还原SQL Server及压缩Access数据库
- Asp.Net中动态页面转静态页面
- ASP.NET缓存：方法分析和实践示例
- ASP.NET Forms验证（自定义、角色提供程序）
- ASP.NET 2.0当中的Call Back机制
- ASP.NET中MD5和SHA1加密的几种方法
- 在ASP.NET Atlas中调用Web Service
- Cast的妙用：泛用LINQ 語句
- ASP.NET将物件序列化成Binary储存至DB or File
- 使用Ajax后，原来导出功能失败的解决方法
- 装箱、转型、方法调用他们究竟有什么区别？
- ASP.NET MVC ：实现我们自己的视图引擎
- 如何构造一个C#语言的爬虫程序
- Asp.net Mvc Framework可以在Controller中使用的Url.Action方法
- 校内网API的.net版本XiaoNei.Net 1.0（非官方）
- 使用ExtJS GridPanel从Web Service 获取、绑定和显示数据
- 从UI->DB一条龙到代码生成到EOS，谈谈快速开发
- ASP.Net安装简明手册
ASP.NET 中的 VB6 中 善用 ByRef 提升速度
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 257 ::
收藏到网摘: n/a
可是，实际上 如果你调用 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
Next
MsgBox "ByRef " & GetTickCount - t
Combo1.Clear
t = GetTickCount()
'使用API ByVal
For II = 1 To 10000
s = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
SendMessageByVal Combo1.hWnd, CB_ADDSTRING, 0, s
Next
MsgBox "ByVal " & GetTickCount - t
Combo1.Clear
t = GetTickCount()
'使用普通 ComboBox Add
For II = 1 To 10000
s = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Combo1.AddItem s
Next
MsgBox "ComboBox Add " & GetTickCount - t
End Sub
将 API 传参方式改为 ByRef ，可以提升速度，当然不是所有得API 得参数都能这么改，具体得看 API 函数内是否会对传入得参数进行修改，或者你是否还要继续使用 被传入得参数。
否则会引起一些错误，而有些API 是不允许使用 ByRef 传参得 .具体情况还得具体分析。当然上面得列子完全可以使用 Byref
评论 (0) All
