سلام اگه میشه در مورد مدیریت اثتثنا در VB6 توضیح بفرمایین...اینکه چطور میشه واسه ارور های مختلف دستورات جداگانه ای نوشت....
On Error GoTo YourLabel
.
.
.
Exit Sub
YourLabel:
.
.
.
On Error GoTo YourLabel
.
.
.
Exit Function
YourLabel:
.
.
.
On Error Resume Next
.
.
.
On Error GoTo YourLabel
.
.
.
On Error GoTo 0
.
.
.
On Error GoTo YourLabel
.
.
.
On Error GoTo 0
.
.
.
Exit Function
YourLabel:
.
.
.
YourLabel:
Select Case Err.Number
Case 6
MsgBox "Overflow Error"
Case Else
MsgBox Err.Description
End Select