Lotus Symphony 1.2


Erl 函數 [執行時期]

傳回程式執行時期出現錯誤的行號。

語法:

Erl

回覆值:

Integer

參數:

附註:Erl 函數僅傳回行號而不傳回行的標籤。

範例:

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


其他文件 | 商標