ID : 438
Err.Number
功能
为存储任务错误的错误编码的属性。
解说
发生任务错误时,将系统和机器输出的原始错误编码转换为PacScript的错误编码并保存。仅可读出值,不能写入。
注意事项
-
应用示例
'!TITLE“显示错误编码”
'在讯息输出视窗中显示错误对象中保存的错误编码
Sub Sample_ErrNumber
On Error GoTo LABEL1
Dim aaa As Integer
Dim bbb As Integer
aaa = 100
bbb = 0
'除以零会发生错误
aaa = aaa / bbb
Exit Sub
LABEL1:
'在讯息输出视窗中显示错误编码
PrintDbg Err.Number
End Sub
ID : 438

