[ایرانویجی] آموزش یافتن محل دقیق وقوع خطا (شماره خط کد!)

[1120]

سلام دوستان .

حتما تا حالا به این فکر کردید که چطور میشه متوجه بشید که دقیقا در کدام خط از کد های برنامتون خطا رخ میده و در صورت نیاز یک گزارش خطای دقیق ایجاد کنید .

برای انجام این کار :

1- ابتدا خط های کد رو شماره گذاری می کنیم.

2- روال رو (با استفاده از دستور On Error...) مدیریت خطا می کنیم.

3- با استفاده از تابع Erl (که یکی از توابع مستند نشده VB هست) شماره خطی که خطا در آنجا رخ داده رو به دست می آوریم .

مثال :

کد:

Private Sub Form_Load()

    On Error GoTo ErrH


    Dim a As Integer, b As Integer

1   a = 10
    
2   b = 15
  
3   a = b / 0
  
4   MsgBox CStr(a)

    Exit Sub


ErrH:
    MsgBox "Error Number : " & Err.Number & vbCrLf & _
           "Error Location : Form1.Form_Load " & vbCrLf & _
           "Error Line : " & Erl & vbCrLf & _
           "Error Description : " & Err.Description, vbCritical
    ' Resume Next
End Sub

امیدوارم مفید واقع بشه .

موفق و آزاد باشید .