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

مثال مبسط : لدينا فورمة وليكن اسمها Name : Form1 ونريد وضع زر أمر بها في وسط الفورمة بالضبط

اسم زر الأمر Name : Command1

عنوان زر الأمر Caption : Click Me

الكود : فى الفورم لود أو عند بدء تحميل الفورم أكتب السطر التالى

Private Sub Form_Load()

command1.left = form1.width / 2 - command1.width / 2

command1.top = form1.height / 2 - command1.height / 2

End Sub

فى السطر الأول فإن الخاصية Left لزر الأمر ( أى المسافة التى سوف تفصل بين الحد الأيسر لزر الأمر والفورم ) تساوى عرض افورمة مقسوما على 2 أو نصف عرض الفورمة مطروحا منها نصف عرض زر الأمر وبذلك نكون قد وضعنا زر الأمر فى وسط الفورمة أفقيا.

فى السطر الثانى فإن الخاصية Top لزر الأمر ( أى المسافة التى سوف تفصل بين الحد العلوى لزر الأمر والفورم ) تساوى إرتفاع الفورم مقسوما على 2 أو نصف إرتفاع الفورم مطروحا منه نصف إرتفاع زر الأمر وبذلك نكون قد وضعنا زر الأمر فى وسط الفورمة رأسيا. بقى لدينا أن نضع الكود الخاص بزر الأمر

Private Sub Command1_Click()

End

End Sub

وعندما نضغط على الزر فإن عمل البرنامج ينتهى نظرا لأن الكود الموضوع هو End أى نهاية عمل البرنامج.

ملحوظة : لكتابة الكود حدد العنصر الذى تريد كتابة الكود لة بتحديدة (نقرة واحده علية بزر الفأرة الأيسر ) ثم اضغط على f7 من لوحة المفاتيح. أوانقر على العنصر (زر الأمر مثلا ) نقرا مزدوجا Double Click

مشكور وبارك الله فيك اخوي

مشكوور اخى العزيز