|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:35:34 |
|
|
---- 在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 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:35:34 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]