Contents

# 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

相關主題

Error-Handling Functions

Please support us!