error handeling

[yazdan]

سلام
می خواستم بدونم تا حالا کسی کاری برای فارسی کردن error در vb کرده یعنی مثلا تمام خطا ها رو به فارسی در جایی نگه داره (مثلDB) و بعد از روی شماره خطا پیغام فارسی ارسال کنه.
اگر نه چطور میشه کل خطاهایی که میشه رخ بده رو پیدا کرد (یعنی شماره خطا و توصیفش را)

[روح اله معینی زاده]

با سلام خدمت دوست گرامی
برای ردیابی کل خطاها من روشی بلد نیستم، ولی به فرض مثال با یک loop یا for ... next می شه تعدادی از خطاها رو پیدا کرد.

یک کلید و دو لیست باکس روی صفحه بذار.
درقسمت کد مربوط به کلید برنامه زیر رو وارد کن

On Error GoTo eh:
Dim i As Long
For i = 0 To 36000
Err.Raise (i)
Next
Exit Sub
eh:
If Err.Description = "Application-defined or object-defined error" Then Resume Next
L1.AddItem (Str(i))
L2.AddItem Err.Description
Resume Next
در صورت نیاز در قسمت کد مربوط به هر لیست باکس هم می تونی کدهای زیر رو وارد کنی (L1 نام لیست باکس اول و L2 نام لیست باکس دوم است)

Private Sub L1_Click()
L2.ListIndex = L1.ListIndex
End Sub

Private Sub L2_Click()
L1.ListIndex = L2.ListIndex
End Sub

با احترام- خدانگهدار