作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

运用本例子,可以保证每一个过程，或者函数，我们都经过同一个出口出去。
这样，我们即使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 第四个按钮是缺省值。
 

相关软件：