Make your own free website on Tripod.com

مشروع -   Form Funتصميم المشروع :

في المشروع الحالي سوف نقضي وقت ممتع مع خواص نافذة الإطار باستخدام أزرار الأوامر ، فنحن سوف نري زر يجعل نافذة المشروع تكبر أو تنمو grow ، و آخر يجعل النافذة تتقلص shrink ، وزرين يغيرا لون نافذة المشروع ، وزر يخفي الآزرار ، وآخر يستعيد تلك الأزرار .

 

وضع الأدوات علي نافذة المشروع  :

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

 

 

 

لعلك تنزعج من إجراءات وضع الأزرار الستة علي نافذة المشروع ، ولكن لغة فيجوال بيسك توفر لك وسيلة جيدة وهي نسخ Copy الزر أو آي أداة بنقر الأداة ثم لمس المفتاحين Ctrl + C ، ثم المس المفتاحين Ctrl + V معا للصق Paste الأداة وفي حالتنا هذه الأداة هي زر الأوامر وكرر ذلك خمس مرات متتالية .

 

 ضبط خواص الأدوات Set Control Properties

انقر نافذة الخواص أو أظهرها أن كانت مخفية ، واختر الأداة بنقرها أو باختيار اسمها من قائمة الأدوات المختارة التي تعلو نافذة الخواص ، وخصص للأزرار الأسماءName  ، والعنوان Caption كما يلي :

         

نافذة المشروع Form1:

نافذة المشروع Form1:

اسم الخاصية                  قيمة الخاصية

Name                         frmFormFun

Caption                      Form Fun

 

زر الأوامر Command1 :

اسم الخاصية                  قيمة الخاصية

Name                         cmdShrink

Caption                      تقليص النافذة

 

زر الأوامر Command2 :

اسم الخاصية                  قيمة الخاصية

Name                         cmdGrow

Caption                      تكبيرالنافذة

 


 زر الأوامر: Command3

اسم الخاصية                  قيمة الخاصية

Name                         cmdHide

Caption                      اخفي الأزرار

 

زر الأوامر Command4 :

اسم الخاصية                  قيمة الخاصية

Name                         cmdRed

Caption                      نافذة حمراء

 

زر الأوامر Command5 :

اسم الخاصية                  قيمة الخاصية

Name                         cmdBlue

Caption                      نافذة زرقاء

 

زر الأوامر Command6 :

اسم الخاصية                  قيمة الخاصية

Name                         cmdShow

Caption                      أظهر الأزرار

Visible                       False

 

ويمكنك تغيير الخواص الأخرى إذا رغبت مثل خاصية الخط Font ، وعلي آي حال سوف يكون لدينا المصور التالي :

 

 

 

 

 لدينا ستة أزرار أوامر اثنين لتغيير حجم نافذة المشروع ، واثنين لتغيير ألوان نافذة المشروع ، وواحد لإخفاء الأزرار ، وواحد لاستعادة الأزرار المخفية ، ولاحظ أن الزر أظهر الأزرار أن قيمة خاصية المنظور Visible هي False فنحن لا نريده في بداية التشغيل ، وعندما نرغب في إخفاء الأزرار ، فإننا نغير قيمة خاصية المنظور لهم إلي False ، وإذا أردنا أن نظهرهم نغير قيمة خاصية المنظور لهم إلي True في إجراء حدث النقر للزر الذي عنوانه أظهر الأزرار  .

 

كتابة إجراءات الأحداث Write Event Procedures :

لدينا ستة أزرار موضوعة علي نافذة المشروع ، ونحتاج لكتابة شفرة لإجراء نقر Click  كل من تلك الأزرار ، ولدينا زر يجعل نافذة المشروع تتقلص ولكن التقلص لدرجة عدم وجود زر التكبير سوف يؤدي إلي عدم تمكننا من تكبير النافذة ، ويمكننا تجنب ذلك بجعل النقر علي نافذة المشروع ذاتها يكبر النافذة .

وفي كل إجراء حدث سوف نستخدم نافذة الشفرة ، ونختار الأداة  أو ننقرها نقراً مزدوجاً ، ثم نضع المؤشر بين سطر العنوان والسطر الختامي وهو جسم الإجراء و نكتب كود أو شفرة الحدث .

ولكن تأكد من أنك تكتب كل شئ حتى الملاحظات .

أولاً دعنا نكتب حدث النقر لزر الأوامر قلص النافذة cmdShrink_Click وفي هذا الإجراء نقلص النافذة بمقدار 100 وحدة تويب في كل مرة ننقر فيها ذلك الزر .

           
Private Sub cmdShrink_Click()

'تقليص نافذة المشروع

'تقليص ارتفاع نافذة المشروع بمقدار 100 وحدة تويب

frmFormFun.Height = frmFormFun.Height - 100

' تقليص عرض نافذة المشروع بمقدار 100 وحدة تويب

frmFormFun.Width = frmFormFun.Width - 100

End Sub

 

وقبل أن نتعرض لبقية إجراءات الأحداث ، لننظر عن قرب إلي الإجراء السابق ، فهذا الإجراء ينفذ  لدي نقر الزر الذي عنوانه قلص النافذة ، وبالطبع فأنت تعرف جملة الملاحظة أو التوثيق ، أما الجمل الأخرى فتغير ارتفاع وعرض نافذة المشروع ، فالجملة التي تغير الارتفاع هي :

 

frmFormFun.Height = frmFormFun.Height - 100

 

تذكر كيفية عمل مؤثر التخصيص (=) ، فالطرف الأيمن يحسب أولاً ، ومن يتم طرح ( مؤثر الطرح يظهر قبل العدد 100) 100 من ارتفاع Height  النافذة الحالي frmFormFun ثم تخصص النتيجة لخاصية الارتفاع بالاستبدال مع القيمة السابقة آي الارتفاع ناقص 100 تويب ، وهنا يتقلص ارتفاع النافذة بمقدار 100 تويب    

 

والتعبير السابق يظهر أيضا لماذا لا نسمي مؤثر التخصيص بعلامة التساوي ، فأي واحد يمكنك الحكم علي أن الطرف الأيسر لا يمكن أن يساوي الطرف الأيسر .

 

والآن دعنا ننتقل لحدث نقر زر تكبير النافذة cmdGrow_Click فهذا الإجراء يزيد ارتفاع النافذة Height بمقدار 100 تويب ، وكذلك يزيد عرض النافذة Height بمقدار 100 تويب :

         

Private Sub cmdGrow_Click()

'تكبير النافذة

'تكبير ارتفاع النافذة بمقدار 100 تويب

frmFormFun.Height = frmFormFun.Height + 100

'تكبير عرض النافذة بمقدار 100 تويب

frmFormFun.Width = frmFormFun.Width + 100

End Sub

 

و حدث النقر لزر الأوامر cmdRed_Click يغير خلفية نافذة المشروع للون الأحمر :

 

Private Sub cmdRed_Click()

'جعل لون خلفية النافذة أحمر

frmFormFun.BackColor = vbRed

End Sub

بينما حدث النقر لزر الأوامر cmdBlue_Click يغير لون خلفية نافذة المشروع للون الأزرق :

 

Private Sub cmdBlue_Click()

'جعل لون النافذة أزرق

frmFormFun.BackColor = vbBlue

End Sub

 

وإجراء حدث النقر للزر الأوامر cmdHide_Click يخفي (يخصص القيمة False  للخاصية Visible ) كل أزرار الأوامر عد الزر  cmdShow الذي يجعله مرئياً .

 

Private Sub cmdHide_Click()

'إخفاء كل الأزرار عد الزر cmdShow

cmdGrow.Visible = False

cmdShrink.Visible = False

cmdHide.Visible = False

cmdRed.Visible = False

cmdBlue.Visible = False

'إظهار الزر cmdShow

cmdShow.Visible = True

End Sub

 

أما إجراء حدث النقر للزر cmdShow_Click الذي يظهر كل الأزرار عد زر إخفاء الأزرار:

 

Private Sub cmdShow_Click()

'إظهار كل الأزرار عد cmdShow

cmdGrow.Visible = True

cmdShrink.Visible = True

cmdHide.Visible = True

cmdRed.Visible = True

cmdBlue.Visible = True

'إخفاء الزر cmdShow

cmdShow.Visible = False

End Sub

وأخيرأ فإجراء حدث نقر نافذة المشروع يكبرها أيضاً ، ومن ثم فله نفس أثر الزر cmdGrow_Click :      

Private Sub Form_Click()

'تكبير نافذة المشروع

'تكبير ارتفاع نافذة المشروع بمقدار 100 تويب

frmFormFun.Height = frmFormFun.Height + 100

'تكبير عرض نافذة المشروع بمقدار 100 تويب

frmFormFun.Width = frmFormFun.Width + 100

End Sub

 

مع ملاحظة أنك اخترت الإجراء بطريقة جيدة ، فعندما تختار أداة النافذة سوف يظهر لك إجراء حدث التحميل  Load ، فاختر حدث النقر Click من قائمة الإجراءات  ، وراجع أساليب حفظ المشروعات الجديدة :

 

ويجب أن تري كيفية عمل تلك الإجراءات ، وانتبه لكيفية عمل خاصية المنظور Visible في أحداث الزرين  cmdHide  و  cmdShow ، ولاحظ أن هناك إجراءين متشابهين في الوظيفة وهما إجرائي الحدثين  Form_Click و cmdGrow_Click ، ومن ثم حاول أن تظلل المنطقة المتكررة وانسخها ، وقم لصقها في جسم إجراء الحدث المتكرر ، ويمكنك أن تظلل المنطقة وتختار قائمة التصحيح Edit ، وتختار Copy ثم ضع مؤشر الماوس في جسم الإجراء الثاني ، وافتح قائمة Edit مرة أخري واختر View حينئذ يتم لصق الموجود بالذاكرة في ذلك الموضع ، ولكن توفر لك فيجوال بيسك وصول مباشر لتلك الوظائف من خلال شريط الأدوات كما يلي :

          فظلل المنطقة وانقر أيقونة النسخ ثم ضع المؤشر حيث تشاء واضغط أيقونة اللصق ، وكذلك يمكنك قص المنطقة المظللة ، بل والبحث عن كلمات من خلال أيقونة البحث ، فلدي نقرك لها يظهر لك المربع الحواري التالي :

 

بل يمكنك من خلال ذلك المربع الحواري أن تستبدل كلمة بأخرى بعد البحث عنها .

كذلك توفر لك فيجوال بيسك طرقة عرض آلية للخواص لدي كتابتك لاسم أداة وبعد وضعك للنقطة تظهر  لك قائمة تختار من اسم الخاصية التي تريدها كما يلي :

         

فإذا لم تكن هذه القائمة تظهر لك ، فانقر القائمة Tools ، واختر Options  وانقر Editor ضع علامة صح علي الزر المقابل Auto List Members وكذلك سوف تري رسائل معاونة أخري.

   

 تشغيل المشروع Run the Project :

          انقر زر البدء Start من شريط الأدوات ، فإذا لم يعمل المشروع أعد النظر في المشروع وتأكد من صحة ما كتبت ، وسوف نتعلم أساليب التصحيح في الدرس التالي .

 

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

            

مقترحات :

          لكل مشروع لدينا مقترحات لك لتطويره ، طور مشروعك لتجعل أزرار تكبير Grow النافذة وتصغيرها Shrink يحرك النافذة عبر الشاشة (استخدم الخاصيتين قمة Top ويسار Left)

 أضف ألوان أخري ، وغير زر الإخفاء بحيث يستبدل الخاصية Visible بالخاصية Enabled  وكذلك زر الإظهار .

ملخص :

تهانينا علي ما أنجزته فقد تعلمت علي الأقل أداتين و تصميم وحفظ المشروعات بشيء من التفاصيل مع الأداتين زر الأوامر ونافذة المشروع ، وأصبحت مقتنعاً بخطوات بناء المشروع الثلاث ، وفي الدروس التالية سوف نبني مشروعات باستخدام أدوات أخري ونتعمق أكثر في لغة البيسك .      

 
صفحة البداية ما الجديد حاليا ؟ فيجوال بيسك للتطبيقات موضوعات متقدمة فيجوال بيسك لتلاميذ المدارس

أرسل استفسارك أو تعليقك  الآن

أرسل رسالتك أو استفسارك الآن

أكتب ملاحظتك أو استفسارك أو تعليقك أو ابحث عن مواقع فيجوال بيسك أخري و غيره.....

حقوق الطبع والنسخ محفوظة  © 2000 مركز الكمبيوتر التربوي
آخر تعديل: April 18, 2001