运用本例子,可以保证每一个过程,或者函数,我们都经过同一个出口出去。 这样,我们即使code中用到了goto,那么我们也可以控制出口。 原则上,控制一个出口,会让程序员知道代码执行情况。 P Private Sub MyProcedure() ------------------------ On Error GoTo MYERR MYEXIT: Exit Sub MYERR: MsgBox Me.Caption & "|禁用" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbCritical, "错误" GoTo MYEXIT
End Sub
-----------------------------
1 警告 MsgBox Me.Caption & "|Myprocedure" & vbCrLf & Err.Number & vbCrLf & Err.Description,VbExclamation, "警告" 2 问题 MsgBox Me.Caption & "|Myprocedure" & vbCrLf & Err.Number & vbCrLf & Err.Description,VbQuestion, "问题" 3 提示 MsgBox Me.Caption & "|Myprocedure" & vbCrLf & Err.Number & vbCrLf & Err.Description,VbInformation, "提示" 4 问题 + vbYesNoCancel MsgBox "请选择要求" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbYesNoCancel + vbQuestion, "问题"
vbOKOnly 0 只显示 OK 按钮。 VbOKCancel 1 显示 OK 及 Cancel 按钮。 VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。 VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。 VbYesNo 4 显示 Yes 及 No 按钮。 VbRetryCancel 5 显示 Retry 及 Cancel 按钮。 VbCritical 16 显示 Critical Message 图标。 VbQuestion 32 显示 Warning Query 图标。 VbExclamation 48 显示 Warning Message 图标。 VbInformation 64 显示 Information Message 图标。 vbDefaultButton1 0 第一个按钮是缺省值。 vbDefaultButton2 256 第二个按钮是缺省值。 vbDefaultButton3 512 第三个按钮是缺省值。 vbDefaultButton4 768 第四个按钮是缺省值。 
|