运用任何一个语言进行程序开发时,通常都会对程序开发中必然会出现的错误进行相应的处理。那么在VB.NET中,VB.NET错误处理往往会对运行速度有一定的影响。VB.NET中On Error 来捕获和处理错误,而且经常使用 On Error Resume Next 来可能产生的忽略错误。
那么 使用错误捕获是否会影响速度呢?
是的,使用VB.NET错误处理将会降低一些性能,在。Net 中,使用 Try Catch 也将会影响性能,所以我们使用Reflector 反编译微软的类库时,会发现他的子过程很少使用 Try 来捕获错误,基本都是采用可预知的方式来判断可能出现的错误,并做相应处理。
实际上,使用错误捕获后,编译后的代码实际上做了很多不为我们所知的操作,虽然 使用错误捕获从一定程度上方便了编码过程,却牺牲了一定的速度,有利有弊,所以我们应该正确的使用 错误捕获。
测试的VB.NET
Option Explicit
Dim cn As
New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim m_FldsName() As String
Private Sub Command1_Click()
Dim II As Long
Dim t As Single
cn.Open "Provider=SQLOLEDB.1;Persist
Security Info=False;User ID=sa;Initial
Catalog=广商;Data Source=SUPER"
rs.Open "Select * from FldSet ",
cn, adOpenKeyset
Do Until rs.EOF = True rs.MoveNext
Loop
rs.MoveFirst
t = Timer ReDim m_FldsName(rs.Fields.Count)
For II = 0
To
rs.Fields.Count - 1
m_FldsName(II) = rs.Fields(II)。Name
Next http://lailoyeoa.blog.chinaunix.net
Do Until rs.EOF = True ReadFieldsNotOnErr "Err1"
ReadFieldsNotOnErr "TableName"
ReadFieldsNotOnErr "Err2"
rs.MoveNext
Loop
MsgBox "NotErr:" & Timer - t
On Error Resume Next
rs.MoveFirst
t = Timer Do Until rs.EOF = True ReadFieldsOnErr "Err1"
ReadFieldsOnErr "TableName"
ReadFieldsOnErr "Err2"
rs.MoveNext
Loop
MsgBox "OnErr:" & Timer - t
rs.Close
cn.Close
End Sub
Private Sub
ReadFieldsOnErr(FieldName As String)
Dim v As Variant
v = rs(FieldName)。Value
End Sub
Private Sub
ReadFieldsNotOnErr(FieldName As String)
Dim II As Long
Dim IsExists As Boolean
Dim v As Variant
IsExists = False For II = 0 To UBound(m_FldsName) - 1
If m_FldsName(II) = FieldName Then
IsExists = True Exit
For
End If
Next
If IsExists = True Then
v = rs(FieldName)。Value
End If
End Sub
测试结果:
无错误时
ReadFieldsOnErr : 0.46
ReadFieldsNotOnErr : 0.47
有错误时
ReadFieldsOnErr : 0.96
ReadFieldsNotOnErr : 0.47
可以看到:不使用VB.NET错误处理,速度相当稳定,而使用VB.NET错误处理时,有错误的情况下速度落差较大,所以 对于在循环中 频繁调用 的子过程,建议对可能出现的错误进行预处理,减少使用 On error来提升速度。
解决VB.NET错误导致的运行速度
精选 翻译![](https://ucenter.51cto.com/images/noavatar_middle.gif)
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
vb.net程序进程 vb.net ini
Public Class Form1 '************ini文件内容为************************* '*[send] * '*send1=1
vb.net程序进程 Text System Public -
vb.net serialport vb.net serialport 底层
引用自MSDNSerialPort 类 (System.IO.Ports) serialport方法 名称 &nbs
vb.net serialport 输入缓冲区 串行端口 字节数 -
vb.net 函数调用 vb.net call
调用过程和函数时,加call和不加没什么区别,只是增加可读性而已,以下是摘自MSDN的说明:
vb.net 函数调用 Visual MSDN 动态链接库 -
vb.net 中代码 vb.net format
四、格式化函数 <一> 日期时间格式化函数 语法:FormatDateTime (exp As DateTime [, namedformat As DateFormat ]) As String 说明:依照参数namedformat指定的格式将参数exp的日期格式化,选择性参数namedformat属于DateFormat枚举
vb.net 中代码 vb.net格式化函数 vb.net format函数 vb.net format使用方法 git