سوال در مورد On Error

[renjerk]

از این دستور
On Error Goto 0 چجوری باید استفاده کرد لطفا یک نمونه با کد ویبی راهنمایی کنید ممنون

برنامه ای که نوشتم بعد مدتی کار کردن این اررور رو میده میخوام با این دستور اررور پیدا کنم ولی کار با این دستور رو بلد نیستم راهنمایی کنید ممنون
متن اررور:

Run-time error 35761
Request timed out

[REZADG]

سلام دوست من
این دستور اینجوریه که بعد این که

On Error Goto 0
در همون رویداد بعد این که کد های برنامتون تموم شده مینویسید

0:
بعد کار هایی که دوست دارید انجام بشه رو مینویسید
همین

[renjerk]

سلام دوست من
این دستور اینجوریه که بعد این که

On Error Goto 0در همون رویداد بعد این که کد های برنامتون تموم شده مینویسید

0:
بعد کار هایی که دوست دارید انجام بشه رو مینویسید همین
فایل برنامه من اجرایی هست و بعد 1یا 2 ساعت کار کردن ارور میده.

در این لینک دوستی در این مورد توضیحاتی داده که میخوام مثل توضیحات این دوست عزیز باشه.
http://barnamenevis.org/forum/showpost.php?p=994722&postcount=4

دوست عزیز اگر امکانش هست با کد ویبی راهنمایی کنید.ممنون

[REZADG]

ببین دوست عزیز

On Error Resume Next
Text1.FontName = GetSetting("My Font", "Pro", "Name")
Text1.FontSize = GetSetting("My Font", "Pro", "size")
می بینی من می دونم که هیچ چیزی ذخیره نکردم پس بار اول خطا میده وقتی این کد رو می نویسی میره به روال بعد خطا یعنی خط بعد این خط ها او کی
یه روشی هم هست که میتونی

On Error GoTo r
Text1.FontName = GetSetting("My Font", "Pro", "Name")
Text1.FontSize = GetSetting("My Font", "Pro", "size")
r:
MsgBox "",vbOKOnly
که در این حالت میاد R رو اجرا میکنه که یه پیغام خالی هست
او کی

[renjerk]

سلام دوست عزیز خیلی خوب توضیح دادی من زود گرفتم استعداد مربی بودن داری تشویقت میکنم مربی تدریس ویبی بشی ممنون:قلب::تشویق:

[renjerk]

دوسته عزیز حالا من چه ذستوری بنویسم که به من نشون بده کدوم روال برنامم اررور داده ?

[aryasoft2872]

از شی err استفاده کن

[REZADG]

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

[renjerk]

از شی err استفاده کن
برنامه من فایل اجرایی هست و بعد از یک یا 2 ساعت کار کردن اررور ران تایم میدهد که میخوام با دستور On Error Goto روالی که این اررور را میده شکار کنم مثلا برنامه من فایل اجرایی هست و اجراش میکنم و باهاش کارمیکنم میخوام وقتی ارور رو داد اررور رو شکار کنم بدونم کدوم روال برنامه اررور داده .... . اگر امکانش هست با کد ویبی راهنمایی کنید ممنون

[Dr.Bronx]

ببین دوست عزیز

On Error Resume Next
Text1.FontName = GetSetting("My Font", "Pro", "Name")
Text1.FontSize = GetSetting("My Font", "Pro", "size")
می بینی من می دونم که هیچ چیزی ذخیره نکردم پس بار اول خطا میده وقتی این کد رو می نویسی میره به روال بعد خطا یعنی خط بعد این خط ها او کی
یه روشی هم هست که میتونی

On Error GoTo r
Text1.FontName = GetSetting("My Font", "Pro", "Name")
Text1.FontSize = GetSetting("My Font", "Pro", "size")
r:
MsgBox "",vbOKOnly
که در این حالت میاد R رو اجرا میکنه که یه پیغام خالی هست
او کی

در مورد صحبت آخر شما باید عرض کنم چون شما هیچ شرطی ندارید در نتیجه همیشه اون r: اجرا میشه

شما باید از شرط استفاده کنید مثلا :

if err.number = 2 then msgbox err.decription


یا اگر هم نمی خواهید از شرط استفاده کنید باید از ساب خارج بشید

on error goto Err_Trap

Your Command

exit sub
Err_Trap:
msgbox err.description


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

msgbox getsetting("Mypro","Pro","Key",Default)

موفق باشید ./

[xxxxx_xxxxx]

سلام دوست من
این دستور اینجوریه که بعد این که

On Error Goto 0در همون رویداد بعد این که کد های برنامتون تموم شده مینویسید

0:
بعد کار هایی که دوست دارید انجام بشه رو مینویسید همین
سلام،
در مورد On Error GoTo 0:
دقت کنید، در اینجا منظور از 0 یک برچسب برای پرش نیست. بلکه برای غیرفعال کردن Error Handling توی اون sub یا function استفاده میشه.


به ایجاد کننده تاپیک: لطفاً برای تاپیک هایی که ایجاد می کنید عنوان مناسبی انتخاب کنید/.
عنوان تاپیک اصلاح شد.