繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB6 中 善用 ByRef 提升速度
- ASP.NET
- 动态加载Js代码到Head标签中的脚本
- asp.net Parameters.AddWithValue方法在SQL语句的 Where 字句中的用法
- ASP.NET 运行时错误: 没有为扩展名“.asax”注册的生成提供程序修正版
- Convert.ToInt32与Int32.Parse区别及Int32.TryParse
- WebService出现"因 URL 意外地以 结束，请求格式无法识别"的解决方法
- asp.net(C#) Xml操作(增删改查)练习
- asp.net 分页sql语句(结合aspnetpager)
- asp.net开发与web标准的冲突问题的一些常见解决方法
- asp.net Repeater中使用if的代码
- Asp.net FCKEditor 2.6.3 上传文件没有权限解决方法
- C# 命名规则(挺不错的)
- asp.net 动态生成控件并获取其值
- 使用DataGrid中扩展ItemRenderer和HeaderRenderer进行操作
- asp.net Hashtable 遍历写法
- asp.net GridView和DataList实现鼠标移到行行变色
- C# 邮件地址是否合法的验证
- .net发送邮件实现代码
- ASP.Net 上传图片并生成高清晰缩略图
- asp.net 事件与委托分析
- C# 无限级分类的实现
ASP.NET 中的 VB6 中 善用 ByRef 提升速度
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 184 ::
收藏到网摘: 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
