vb错误处理_vb常见调试错误

vb错误处理由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb常见调试错误”。

Vb错误处理 出错处理

（1）设置错误陷阱

On Error Resume Next

若出现错误，则将当前错误语句忽略，执行下条语句。

On Error GoTo 语句标号

On Error GoTo 0 不进行任何处理

（2）编写错误处理程序

Resume：接着错误的地方执行，重试。

Resume Next：类似On Error Resume Next，忽略当前错误语句，执行下一语句Resume ：到标号那里去处理。

过程级、模块级

节选：

Onerrorgoto标签是放在错误发生之前，有效范围是到此事件的结束，包括错误处理时发生的错误。（此时的错误一般是没有想到的，故也没有处理）所以要保证不要在错误处理的代码中写复杂的代码。

OnErrorGotoErr_Normal

'一般代码

sql= “insertinto......”

OnErrorGotoErr_Roll

adocn.BeginTrans

adocn.Executesqladocn.CommitTrans

OnErrorGotoErr_Normal

....Exitsub

Err_Normal:

'正常错误处理

ExitSub

vb6.0 遇到错误能不退出吗

2012-1-25 20:04提问者： 咫·尺 | 浏览次数：278次

比如遇到数据溢出啊等，弹出错误以后，就直接把程序关闭了，数据都没保存，能弹出错误后，不关闭程序吗？

满意回答

插入以下代码：

On Error Resume Next

即可。意思是，程序遇到错误不理会，继续执行。

或者使用GoTo，比如下面的代码计算肯定是溢出的，但程序不会退出，不过会提示： On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Do Until ErrNum

g = g * 1024

Loop

ToExit:

If Err.Number = 6 Then

Print “程序溢出，计算结果不准确”, g

Exit Sub

End If

或者使用以下代码，可以完全显示计算过程：

Dim WithEvents List As ListBox

Private Sub Form_Load()

On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Set List = Me.Controls.Add(“VB.ListBox”, “List”)

With List

.Left = 0

.Top = 0

.Width = Form1.Width490

.Visible = True

End With

Do Until ErrNum

g = g * 1024

List.AddItem g

Loop

ToExit:

If Err.Number = 6 Then

List.AddItem “程序溢出，计算结果不准确” & g

Exit Sub

End If

End Sub

追问

是不是要在每一个容易出错的sub里面都要这样加一下？有没有整体设置一下或者写代码的？每个sub都写一下也挺麻烦的回答

首先，第一行是每个里边都需要有的，有了这一行，才会执行错误跳转。

比如上边的第二段代码也可以这样写：这样在每段容易出错的过程中，加上第一个的On Error GoTo ToExit和最后一行的ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16即可。当然，你需要在Esub这个子过程中，把所有可能会涉及到的错误代码都添加上。如果只想知道哪里错了，也可以直接提醒，出错也是可以的Private Sub Form_Load()

On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Do Until ErrNum

g = g * 1024

Loop

ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16

End Sub