Erl Function

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

Sintakso:

Erl

Liverota valoro:

Entjero

Parametroj:

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

Error-Handling Functions