---- 在VB软件开发中， 错误信息的捕获及处理是非常重要的部分。有些错误在编译时即可发现、排除。但还有一些错误是在软件运行时由于用户错误的输入等方面的原因而产生的，这就需要软件开发者在软件设计和开发时注意处理这方面的错误。VB 在捕获及处理错误信息方面有两个重要的函数。一个是ERROR，该函数捕获错误信息。另一个是ERR,该函数捕获、返回错误信息代码。当捕获到错误信息代码后，软件开发者就可以根据错误代码来判断、决定程序是退出运行（exit sub）、是继续执行(resume next)、还是进行错其他处理(goto 语 句 标 号)。VB 还有一个重要的语句ONERROR，该语句当VB 程序运行产生错误时触发。开发者可用该语句结合ERR和ERROR函数来该用户提供错误信息、并决定程序下一步工作。也可作成有用户独自选择下一步工作。 笔者开发了一个捕获、显示错误信息的过程showerror()。 发生错误时调用该过程即可，下面是过程源代码及调用例子：
Sub showerror ()
Dim s As String
Dim crlf As String
crlf = Chr(13) + Chr(10)
s = "运行时发生下列错误:" + crlf
注释：add the error string
s = s + Error$ + crlf
注释：add the error number
s = s + "错误码为: " + CStr(Err)
Beep 注释：beep and show the error
X= MsgBox (s，2)
End Sub
调用例子：
sub abc()
onerror goto 1’发生错误时转到 1
.
.
程序体
.
.
exit sub
1
showerror
if err=… then
.
.
错误处理部分
.
.
endif
exit sub
end sub
|
