تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الدرس التاسع - محتويات القائمة File
#1
كاتب الموضوع : أحمد جمال

بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته .

محتويات قائمة ملف .

والآن وخلال هذا الدروس سوف نصمم محتويات القائمة ( ملف ) من الأسفل إلى الأعلى ( وسنصمم : انهاء - تعلميات - حول البرنامج ) فيما نؤجل عرض البضائع إلى الدرس القادم .

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



كود :
Select Case Index
Case 0

Case 2

Case 3

Case 5

End Select


عمل الأمر الموجود في انهاء .

الأمر بسيط جداً ، فيما مضى كنا نضع أمر End مباشرة للانهاء ، ولكننا نشاهد في كثير من البرامج رسالة تظهر قبل انهاء البرنامج .
هل تريد بالتأكيد انهاء البرنامج ؟

لعمل هذه العملية كل ما نحتاج إليه هو اظهار رسالة يكون جوابها YesNo ونضع ناتجها في متغير للتأكد من أنه لا يساوي No قبل الانهاء .
لنرى الآن هذا الكود :



كود :
Dim Sure
Sure = MsgBox("هل تريد بالتأكيد انهاء البرنامج ؟", vbExclamation + vbYesNo + arabic, "تأكيد الخروج")
If Sure = vbYes Then End
الأمر بسيط جداً ، ولكن تبقى شيء آخر ، وهو أننا نريد لهذه الرسالة أن تظهر حين يتم الضغط على زر X في الفورم ، وهو حدث Unload للفورم .

جرب نسخ الأمر السابق كما هو في حدث Unload ستلاحظ أنك حتى لو ضغطت اخترت الغاء الأمر فلن يفيد ذلك ، وللتغلب على هذه المشكلة نغير قيمة Cancel إلى True قبل الأمر السابق .... فكيف يتم ذلك ؟

إن حدث Unload يستقبل قيمة في المتغير Cancel توضح إذا ما تم الغاء الأمر أم لا ، ويحتوي افتراضياً على False عند لضغط على زر X ولذا فإننا نغير قيمته ، وذلك بالشكل التالي :



كود :
Cancel = True

Dim Sure
Sure = MsgBox("هل تريد بالتأكيد انهاء البرنامج ؟", vbExclamation + vbYesNo + arabic, "تأكيد الخروج")
If Sure = vbYes Then End
جرب ذلك الآن ، ستجد أن حدث Load يحدث من جديد عندما يحدث Cancel=True مما يؤدي إلى اخفاء الشاشة التي قمنا باظهارها ، وازالة عنوان الفورم ... وللتغلب على هذه المشكلة يتم استدعاء الأمر Start ثانية بعد هذا الحدث ، وبذلك يصبح الكود الكامل بالشكل التالي :



كود :
Cancel = True

Dim Sure
Sure = MsgBox("هل تريد بالتأكيد انهاء البرنامج ؟", vbExclamation + vbYesNo + arabic, "تأكيد الخروج")
If Sure = vbYes Then End

Start


عمل شاشة ( حول البرنامج ، وشاشة تعليمات ) .

لعمل الشاشة الأولى سوف نستخدم إحدى شاشات الفيجوال بيسك القياسية وهي شاشة About تستطيع اضافة واحدة بالضغط على أي فورم بزر الماوس الأيمن واختيار About Dialog ... غير اسمه إلى AboutMe لكي نتلافى التشابه بينه وبين الفورم الافتتاحي الذي كان ينبغي أن يسمى Frm_Splash - خطأ مني - .

الآن صمم شكل الفورم كما يحلو لك ، ولا تنس أن تضع أيقونة البرنامج مكان أيقونة الفيجوال بيسك .
لاجظ أمراً ما في حدث Load لذلك الفورم وهو موجود افتراضياً :



كود :
Me.Caption = "About " & App.Title
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblTitle.Caption = App.Title
يقوم هذا الكود بالتعرف على خصائص المشروع من اصدار واسم وغيره لوضعها في اماكنها المناسية ... تستطيع الاعتماد على هذه الطريقة مع التأكد من ضبط هذه الخصائص بصورة صحيحة من قائمة Project ثم Project Property ومن خلال التبويب Make ... أو تستطيع الاعتماد على عملها وقت التصميم وحذف هذه الأكواد .

وفي حدث النقر على هذه القائمة سوف نضيف أمر اظهار هذه الشاشة فقط :


AboutMe.Show 1


وماذا عن الشاشة الثانية ؟
من المعتاد دائماً ارفاق ملف التعليمات مع البرنامج بصيغة rtf وهي صيغة مطورة من Text لكنها تسمح بالألوان ويمثلها في برامج ويندوز برنامج الدفتر - Wordpad ... وبما أن الغالب هو اضافة نفس التعليمات في شاشة التعليمات ، فإننا نحتاج إلى أداة تدعم اختلاف الألوان ، وهذه الأداة هي أداة RichText .

سنبدأ أولاً بعمل فورم فارغ من كل شيء .. ولن يحتوي شريطه العلوي سوى على زر X فقط ... ونضيف هذه الاداة فيه .
لاضافة الأداة : اضغط Ctrl+T ومن ثم اختر Microsoft RichText Control 6.0 .

ولنقم الآن بفتح الدفتر - Wordpad ولنضف بعض الكلام كتجربة ، ونحفظة في نفس مسار البرنامج تحت اسم Help.rtf .

تحتوي هذه الاداة على خاصية FileName والتي تحدد مكان الملف الذي سوف يظهر في هذه الاداة والتي سوف نضبطها وقت التصميم ... أيضاً خاصية ScrollBars والتي تحدد ظهور أشرطة التمرير من عدمه .

كل ما علينا أن نحدد مصدر الأداة في حدث التحميل للفورم ، وذلك بالشكل التالي :


RichTextBox1.FileName = Folder & "help.rtf
"


والأمر الخاص باظهار هذا الفورم :


Frm_Help.Show 1


وملف البرنامج حتى الآن موجود في المرفقات .

والله الموفق ..
والسلام عليكم ورحمة الله وبركاته .


الملفات المرفقة
.zip   prog5.zip (الحجم : 193.8 ك ب / التحميلات : 137)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الدرس الرابع والثلاثون والأخير - نبذة عن العملية العكسية + تجهيز البرنامج على Cd RaggiTech 0 1,438 15-10-12, 09:10 AM
آخر رد: RaggiTech
  الدرس الثالث والثلاثون - كيفية عمل اعداد Setup للبرنامج RaggiTech 0 1,231 15-10-12, 09:08 AM
آخر رد: RaggiTech
  الدرس الثاني والثلاثون - التحويل إلى exe RaggiTech 0 1,161 15-10-12, 09:07 AM
آخر رد: RaggiTech
  الدرس الحادي والثلاثون - تعددية المستخدمين - البحث وطباعة الفواتير - التعليمات ... RaggiTech 2 1,759 15-10-12, 09:05 AM
آخر رد: RaggiTech
  الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar RaggiTech 0 992 15-10-12, 08:59 AM
آخر رد: RaggiTech
  الدرس التاسع والعشرون - التعامل مع أشرطة الحالة Statues Bar RaggiTech 0 838 15-10-12, 08:57 AM
آخر رد: RaggiTech
  الدرس الثامن والعشرون -الطباعة في البرنامج . RaggiTech 4 1,560 15-10-12, 08:56 AM
آخر رد: RaggiTech
  الدرس السابع والعشرون - مقدمة إلى التعامل مع التقارير من خلال DataReport RaggiTech 2 1,713 15-10-12, 08:45 AM
آخر رد: RaggiTech
  الدرس السادس والعشرون - التقارير اليومية ، والتقارير بين تاريخين RaggiTech 1 1,223 15-10-12, 08:39 AM
آخر رد: RaggiTech
  الدرس الخامس والعشرون - الإحصائيات والرسوم البيانية RaggiTech 0 1,102 15-10-12, 08:37 AM
آخر رد: RaggiTech

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


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