آموزش یافتن محل دقیق وقوع خطا در ویژوال بیسیک

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

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

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

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

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

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

مثال :

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 Line : " & Erl & vbCrLf & _
           "Error Description : " & Err.Description, vbCritical
    ' Resume Next
End Sub