تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
On Error GoTo
#1
كود :
Private Sub Command1_Click()
On Error Resume Next
If label6 = "6" Then Text1 = "1"

On Error GoTo tamer1:
FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
Exit Sub

tamer1:

Text1 = "1"
On Error GoTo tamer2:
FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
Exit Sub
tamer2:
Text2 = "2"

End Sub
إخواني الكرام هذا كود كنت اجرب فيه
هل ممكن تعدد دالة الخطأ في نقس الحدث
فعملت المثال السابق مع تعمد عدم وجود الملف المطلوب في مساره
فيتحقق معي الخطأ الأول ويعمل تمام وينتقل الي tamer1
ولكن في الخطأ الثاني تظهر لي رسالة الخطأ ولا ينتقل الي tamer2

فأرجو من الأخوة توضيح الأمر
وتوضيح كيف اعدد دالة الخطأ في حدث واحد
ولكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
أهلا أخي الكريم , إستخدم هذه الطريقة إن شاء الله تضبط معك :

كود :
Private Sub Command1_Click()
On Error Resume Next
If label6 = "6" Then Text1 = "1"

FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
If Err.Number <> 0 Then Err.Clear: GoTo tamer1
Exit Sub

tamer1:
Text1 = "1"

FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
If Err.Number <> 0 Then Err.Clear: GoTo tamer2
Exit Sub

tamer2:
Text2 = "2"

End Sub
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] path/file access error على وندوز 7 mhareek 6 81 30-11-16, 12:41 PM
آخر رد: abulayth
  [vb6.0] اين المشكلة run-time error (80040e14) syntax محمد ئوزبك 2 177 04-03-16, 01:05 AM
آخر رد: محمد ئوزبك
  هل من حل لمشكلة compile error tighrmte 0 223 21-11-15, 04:06 PM
آخر رد: tighrmte
  سؤال عن حل لـ Invalid TVL record و Error accessing the system registry Ahmed abdallah 1 300 15-08-15, 12:28 AM
آخر رد: Ahmed abdallah
  [سؤال] Compile error:User-defined type not defined amira 3 512 20-07-14, 11:33 PM
آخر رد: محمود اكرم
  [vb6.0] Run-time Error '429' ActiveX component can't create object علاء الدين 2 2,015 17-07-14, 01:25 PM
آخر رد: علاء الدين
  بخصوص رسالة الخطأ compile error syntax error أحمد 6 881 01-06-14, 06:22 PM
آخر رد: حريف برمجة
  ارجو المساعده في مشكلة runtime error '430' VB.NET 9 2,035 11-11-13, 09:32 AM
آخر رد: تركي الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم