ຟັງຊັນ 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

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