Erl Function

Liveras la linian nombron kie eraro okazis dum programa ruliĝo.

Sintakso:

Erl

Liverota valoro:

Entjero

Parametroj:

Note Icon

La funkcio Erl liveras nur linian nombron, ne linian etikedon.


Ekzemplo:

Sub ExampleError

on error goto ErrorHandler REM Starigi traktilon por eraroj

Dim iVar As Integer

Dim sVar As String

REM Eraron kaŭzis neekzisto de dosiero

    iVar = Freefile

    Open "\file9879.txt" For Input As #iVar

    Line Input #iVar, sVar

    Close #iVar

    Exit Sub

ErrorHandler:

    MsgBox "Eraro " & err & ": " & error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"Eraro okazis"

End Sub