没有合适的资源?快使用搜索试试~ 我知道了~
VB软件开发中的错误捕获及处理技术
1星 需积分: 30 20 下载量 195 浏览量
2011-03-31
18:11:25
上传
评论
收藏 2KB TXT 举报
温馨提示
试读
2页
VB软件开发中的错误捕获及处理技术VB技术很实用的源码本人收集了一些技巧供大家参考,希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.
资源推荐
资源详情
资源评论
VB软件开发中的错误捕获及处理技术
作者:李俊海
---- 在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
作者:李俊海
---- 在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
资源评论
- UN-live2022-03-13TMD,这论坛没有人审贴吗?这么垃圾也能传上来。
tianlongbang
- 粉丝: 0
- 资源: 108
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- tensorflow-2.7.3-cp39-cp39-manylinux2010-x86-64.whl
- tensorflow-2.7.2-cp39-cp39-manylinux2010-x86-64.whl
- Python版本快速排序源代码
- Python 语言版的快速排序算法实现
- 450815388207377安卓_base.apk
- 超微主板 X9DRE-TF+ bios 支持 nvme启动
- 基于Python通过下载气象数据和插值拟合离散数据曲线实现对寒潮过程的能量分析
- 健身房系统的设计与实现论文Java项目
- 使用TCP实现的搜索可用服务器
- 使用贪心算法解决会议时间安排问题的 Java 示例代码
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功