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 ,"An error occured"
end sub