Erl Function
傳回程式執行期間出現錯誤的行號。
語法:
Erl
傳回值類型:
整型
參數:
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