Lotus Symphony 1.2
|
傳回給定的錯誤代碼所對應的錯誤訊息。
sub ExampleError
on error goto ErrorHandler REM 設定錯誤處理程式
Dim iVar as Integer
Dim sVar As String
REM 由於檔案不存在而出現的錯誤
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Error " & err & ":" & error$ + chr (13) + "In line :" + Erl + chr (13) + Now , 16 ,"error occurred"
end sub