الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود لتتبع الخطأ فى برنامجك واظهار رسالة تصف الخطأ

مغلق
بدأه hanysaad في 10 أغسطس 2005 · 13 رد · 3,466 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كود لتتبع الخطأ فى برنامجك واظهار رسالة تصف الخطأ

'بداية معالج الخطأ
On Error GoTo ErrHandler

'هنا يوضع الكود

'إنهاء تتبع الأخطاء والخروج من الإجراء
  On Error GoTo 0
  Exit Function

ErrHandler:
  Dim strErr As String
  strErr = "Error " & Err.Number & " " & Err.Description 
  MsgBox strErr, vbCritical + vbOK, "Error message"

تم تعديل هذه المشاركة بواسطة hanysaad في 10 أغسطس 2005 في 03:43

Hany Saad Mostafa

ITI (Information Technology Institute) l

SD Dept.-Teaching Assistant

---

اسألكم الدعاء بظهر الغيب

#2

يعطيك العافيه أخي هاني

essam.gif

منتديات كوكب الكمبيوتر

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#3

مشكور اخ هاني

من تواضع لله رفعه

#4

السلام عليكم

الاخ hussein2005 والاخ seaprince46

شكرا جزيلا على متابعتكم

Hany Saad Mostafa

ITI (Information Technology Institute) l

SD Dept.-Teaching Assistant

---

اسألكم الدعاء بظهر الغيب

#5

هيا الى الأمام اخ هانى

#6

الاخ Sheriff_Ghost2010

شكرا جزيلا على متابعتك للموضوع

تم تعديل هذه المشاركة بواسطة hanysaad في 12 أغسطس 2005 في 20:11

Hany Saad Mostafa

ITI (Information Technology Institute) l

SD Dept.-Teaching Assistant

---

اسألكم الدعاء بظهر الغيب

#7

السلام عليكم

اعتقد ان هذا الكود خاص بالفيجوال بيسك دوت نت .. هل الموضوع يختلف كتير مع السي شارب ؟

#8

السلام عليكم

اخى HOssam-Brkat

الكود السابق خاص بالفيجوال بيسيك 6 وليس دوت نت

Hany Saad Mostafa

ITI (Information Technology Institute) l

SD Dept.-Teaching Assistant

---

اسألكم الدعاء بظهر الغيب

#9

شكرا اخي هاني

#10

شكرا علي الكود الجميل

#11

مشكور اخي هاني

مع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية

أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا

logo.png

#12

مشكور على كود ..يسلمو

#13
'بداية معالج الخطأ
On Error GoTo ErrHandler

'هنا يوضع الكود

'إنهاء تتبع الأخطاء والخروج من الإجراء
 On Error GoTo 0
 Exit Function

ErrHandler:
 Dim strErr As String
 strErr = "Error " & Err.Number & " " & Err.Description 
 MsgBox strErr, vbCritical + vbOK, "Error message"

اشكرك أخي ...

بس وين أحط هالكود بالضبط :^)

#14

مشكوووووووووووور جداً اخ هانى

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…