ይዞታዎች

# የ መስመር ቁጥር ተግባር

የ መስመ ቁጥር ይመልሳል ስህተት በሚፈጠር ጊዜ ፕሮራም ሲፈጸም

## አገባብ:

    Erl

## ይመልሳል ዋጋ:

ኢንቲጀር

## ደንቦች:

የ ስህተት መስመር ቁጥር ማሳያ ተግባር የ መስመር ቁጥር ይመልሳል: እና የ መስመር ምልክት አይደለም

## ለምሳሌ:

    Sub ExampleError
    በ ስህተት ላይ መሄጃ ወደ ስህተት መያዣ ' የ ስህተት መያዣ ማሰናጃ
    Dim iVar As Integer
    Dim sVar As String
    ' ስህተት የ ተፈጠረው ምንም-ባልነበረ ፋይል ነው
        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 ,"An error occurred"
    End Sub

የ ተዛመዱ አርእስቶች

Error-Handling Functions

Please support us!