![]() |
|
الدرس التاسع - محتويات القائمة File - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113) +---- قسم : دورة بناء برنامج لإدارة السوبر ماركت من الألف إلى الياء (http://vb4arb.com/vb/forumdisplay.php?fid=128) +---- الموضوع : الدرس التاسع - محتويات القائمة File (/showthread.php?tid=5697) |
الدرس التاسع - محتويات القائمة File - RaggiTech - 15-10-12 كاتب الموضوع : أحمد جمال
بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته . محتويات قائمة ملف .
والآن وخلال هذا الدروس سوف نصمم محتويات القائمة ( ملف ) من الأسفل إلى الأعلى ( وسنصمم : انهاء - تعلميات - حول البرنامج ) فيما نؤجل عرض البضائع إلى الدرس القادم .
لا تنس في بداية هذه الدروس أن جميع القوائم تحت قائمة رئيسية واحدة لها نفس الاسم ، ونقوم بالتفريق بينها بواسطة الخاصية Index وذلك بالشكل التالي : كود : Select Case Indexعمل الأمر الموجود في انهاء .
الأمر بسيط جداً ، فيما مضى كنا نضع أمر End مباشرة للانهاء ، ولكننا نشاهد في كثير من البرامج رسالة تظهر قبل انهاء البرنامج .
هل تريد بالتأكيد انهاء البرنامج ؟
لعمل هذه العملية كل ما نحتاج إليه هو اظهار رسالة يكون جوابها YesNo ونضع ناتجها في متغير للتأكد من أنه لا يساوي No قبل الانهاء .
لنرى الآن هذا الكود : كود : Dim Sureجرب نسخ الأمر السابق كما هو في حدث Unload ستلاحظ أنك حتى لو ضغطت اخترت الغاء الأمر فلن يفيد ذلك ، وللتغلب على هذه المشكلة نغير قيمة Cancel إلى True قبل الأمر السابق .... فكيف يتم ذلك ؟ إن حدث Unload يستقبل قيمة في المتغير Cancel توضح إذا ما تم الغاء الأمر أم لا ، ويحتوي افتراضياً على False عند لضغط على زر X ولذا فإننا نغير قيمته ، وذلك بالشكل التالي : كود : Cancel = Trueكود : Cancel = Trueعمل شاشة ( حول البرنامج ، وشاشة تعليمات ) .
لعمل الشاشة الأولى سوف نستخدم إحدى شاشات الفيجوال بيسك القياسية وهي شاشة About تستطيع اضافة واحدة بالضغط على أي فورم بزر الماوس الأيمن واختيار About Dialog ... غير اسمه إلى AboutMe لكي نتلافى التشابه بينه وبين الفورم الافتتاحي الذي كان ينبغي أن يسمى Frm_Splash - خطأ مني - .
الآن صمم شكل الفورم كما يحلو لك ، ولا تنس أن تضع أيقونة البرنامج مكان أيقونة الفيجوال بيسك . لاجظ أمراً ما في حدث Load لذلك الفورم وهو موجود افتراضياً : كود : Me.Caption = "About " & App.Titleوفي حدث النقر على هذه القائمة سوف نضيف أمر اظهار هذه الشاشة فقط : 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
وملف البرنامج حتى الآن موجود في المرفقات .
والله الموفق ..
والسلام عليكم ورحمة الله وبركاته . |