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