ເນື້ອໃນ

# ຟັງຊັນ Erl

ສົ່ງຄືນເລກແຖວທີ່ເກີດຂໍ້ຜິດພາດໃນລະຫວ່າງການເຮັດວຽກຂອງໂປຣແກຣມ.

## ໄວຍາກອນ:

    Erl

## ຄ່າທີ່ສົ່ງຄືນ:

ເລກຖ້ວນ (Integer)

## ພາຣາມີເຕີ:

ຟັງຊັນ Erl ສົ່ງຄືນພຽງແຕ່ເລກແຖວເທົ່ານັ້ນ, ບໍ່ແມ່ນປ້າຍຊື່ແຖວ (line label).

## ຕົວຢ່າງ:

    Sub ExampleError
    On Error GoTo ErrorHandler ' ຕັ້ງຄ່າຕົວຈັດການຂໍ້ຜິດພາດ
    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 "ຂໍ້ຜິດພາດ " & err & ": " & Error$ + chr(13) + "ທີ່ແຖວ : " + Erl + chr(13) + Now , 16 ,"ເກີດຂໍ້ຜິດພາດຂຶ້ນ"
    End Sub

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນການຈັດການກັບຂໍ້ຜິດພາດ

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!