Erl Function

Ibinabalik ang numero ng linya kung saan nagkaroon ng error sa panahon ng pagpapatupad ng program.

Syntax:

Erl

Ibinalik na halaga:

Integer

Mga Parameter:

Ang Erl function ay nagbabalik lamang ng isang numero ng linya, at hindi isang label ng linya.

Halimbawa:


Sub ExampleError
Sa Error GoTo ErrorHandler ' I-set up ang error handler
Dim iVar As Integer
Dim sVar As String
' Error na dulot ng hindi umiiral na file
    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 ,"May naganap na error"
End Sub

Error-Handling Function