19-12-14, 07:58 PM
نبدا من السطر الاول وهو on error resume next هذا السطر الاول وهو لتجاوز الاخطاء يعني اذا حدث خطا يتجاوزه ويذهب الى التالي
السطر الثاني هو حذف ملف صورة اسمها jpg.1 موجودة في مجلد المشروع
السطر الثالث هو شرط اذا لم توجد سجلات في الجدول الموجود في قاعدة البيانات يعطيك رسالة بعدم وجود سجلات وهو السطر الثالث
السطر الرابع الخروج اذا تحقق الشرط
السطر الخامس نهاية الشرط
السطر السادس جعل text16 فارغا
السطر السابع مربع حوار خاص بعرض الملفات بالصيغ او الامتدادات الموضحة في الكود فقط
السطر الثامن هو عنوان مربع الحوار
السطر التاسع عرض مربع الحوار
السطر العاشر هو شرط اذا تم تحديد صورة فان text16 يكون اسم الصورة وهذا هو السط الحادي عشر
السطر الثاني عشر هو استدعاء لاجراء اسمه c16 والسطر الاخير نهاية الشرط
ارجو ان اكون وفقت في الشرح
تحياتي لك
السطر الثاني هو حذف ملف صورة اسمها jpg.1 موجودة في مجلد المشروع
السطر الثالث هو شرط اذا لم توجد سجلات في الجدول الموجود في قاعدة البيانات يعطيك رسالة بعدم وجود سجلات وهو السطر الثالث
السطر الرابع الخروج اذا تحقق الشرط
السطر الخامس نهاية الشرط
السطر السادس جعل text16 فارغا
السطر السابع مربع حوار خاص بعرض الملفات بالصيغ او الامتدادات الموضحة في الكود فقط
السطر الثامن هو عنوان مربع الحوار
السطر التاسع عرض مربع الحوار
السطر العاشر هو شرط اذا تم تحديد صورة فان text16 يكون اسم الصورة وهذا هو السط الحادي عشر
السطر الثاني عشر هو استدعاء لاجراء اسمه c16 والسطر الاخير نهاية الشرط
ارجو ان اكون وفقت في الشرح
تحياتي لك
تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم
