مدیریت اثتثنا در vb6

[m_mx2009]

سلام اگه میشه در مورد مدیریت اثتثنا در VB6 توضیح بفرمایین...اینکه چطور میشه واسه ارور های مختلف دستورات جداگانه ای نوشت....
در #C با کد :

[LEFT]Try
}

{
Catch()
}

{[/LEFT]

به راحتی میشد اینکارو انجام داد ولی با VB6 نمیدونم چطور میشه.....
با تشکر فراوان

 

[the_king]

سلام اگه میشه در مورد مدیریت اثتثنا در VB6 توضیح بفرمایین...اینکه چطور میشه واسه ارور های مختلف دستورات جداگانه ای نوشت....

در Sub ها :

    On Error GoTo YourLabel
.
.
.
    Exit Sub
YourLabel:
.
.
.

در Function ها :

    On Error GoTo YourLabel
.
.
.
    Exit Function
YourLabel:
.
.
.

اگر می خواهید وقوع خطا نادیده گرفته شود، (حتی در صورت بروز خطا دستورات بعدی اجرا می شوند)

    On Error Resume Next
.
.
.

اگر بخواهید در بخش یا بخش هایی از کد خطا را مدیریت نکنید از On Error Goto 0 استفاده نمایید :

    On Error GoTo YourLabel
.
.
.
    On Error GoTo 0
.
.
.
    On Error GoTo YourLabel
.
.
.
    On Error GoTo 0
.
.
.
    Exit Function
YourLabel:
.
.
.

برای مشخص شدن خطایی که شما را به Label مورد نظر هدایت کرده، از Err استفاده کنید :

YourLabel:
    Select Case Err.Number
    Case 6
        MsgBox "Overflow Error"
    Case Else
        MsgBox Err.Description
    End Select