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) + "At line :" + Erl + chr (13) + Now , 16 ,"an error occurred"
end sub