Module
Contents
Index 🔎︎

# 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