目次

# 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 ,"に、エラーが発生した。"
    End Sub

関連項目

Error-Handling Functions

ご支援をお願いします！