VB软件开发中的错误捕获及处理技术

----在VB软件开发中，错误信息的捕获及处理是非常重要的部分。有些错误在编译时即可发现、排除。但还有一些错误是在软件运行时由于用户错误的输入等方面的原因而产生的，这就需要软件开发者在软件设计和开发时注意处理这方面的错误。VB在捕获及处理错误信息方面有两个重要的函数。一个是ERROR，该函数捕获错误信息。另一个是ERR,该函数捕获、返回错误信息代码。当捕获到错误信息代码后，软件开发者就可以根据错误代码来判断、决定程序是退出运行（exitsub）、是继续执行(resumenext)、还是进行错其他处理(goto语句标号)。VB还有一个重要的语句ONERROR，该语句当VB程序运行产生错误时触发。开发者可用该语句结合ERR和ERROR函数来该用户提供错误信息、并决定程序下一步工作。也可作成有用户独自选择下一步工作。笔者开发了一个捕获、显示错误信息的过程showerror()。发生错误时调用该过程即可，下面是过程源代码及调用例子：

Subshowerror()
DimsAsString
DimcrlfAsString

crlf=Chr(13) Chr(10)
s="运行时发生下列错误:" crlf
注释：addtheerrorstring
s=s Error$ crlf
注释：addtheerrornumber
s=s "错误码为:" CStr(Err)
Beep注释：beepandshowtheerror
X=MsgBox(s，2)

EndSub

调用例子：
subabc()
onerrorgoto1’发生错误时转到1
.
.
程序体
.
.
exitsub
1
showerror
iferr=…then
.
.
错误处理部分
.
.
endif
exitsub
endsub->