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

ويوجد طريقتين لفعل ذلك :

الاولى : بأستخدام مصفوفة الادوات control array:

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

1_ قم بإنشاء نموذج وضع عليه عدد زر أمر و عدد مربع أختيار كما فى الصورة التالية :



2_ سنقوم بتحديد مربع الاختيار و عند الخاصية Index نجعلها تساوى 0 كما فى الصورة التالية :


ثنايا :نقوم بكتابة الاكواد التالية فى حدث الضغط Command1_Click لزر الامر :

الكود:

Load Check1(1)
Check1(1).Caption = "خانة اختيار جيدة"
Check1(1).Visible = True
Check1(1).Top = Check1(0).Top + Check1(0).Height


السطر Load Check1(1)
هذا السطر يقوم بإنشاء العنصر الجديد وتم وضع (1) وهى بمثابة تسمية توضيحية للعنصر الجديد للتفرقة بينه و بين العنصر الاصلى فى صفحة كتابةالكود .

السطر الثانى : هو لوضع تسمية للعنصر على النموذج

السطر الثالث : هو لاظهار العنصر الجديدة بمعنى ان يكون مرئيا للمستخدم وبدون هذا الكود لن يظهر

السطرالرابع و الاخير : هو لتحديد مكان ظهور العنصر الجديدة ...فى مثالنا السابق جعلت العنصر الجديد يظهر تحت العنصر الاصلى  بمعلومات قيم اعلى و يسار العنصر الاصلى ...



الطريقة الثانية : باستخدام مجموعة عناصر التحكم Controls Collection

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

فقط خطوة واحد ....وهى أن نقوم بكتابة الكود التالى فى زر الامر :

الكود:


Dim Egy As Control

Set Egy = Form1.Controls.Add("VB.CheckBox", "Check", Form1)

Egy.Visible = True
Egy.Caption = "خانة الاختيار الجديدة"

Egy.Top = Check1(0).Top + Check1(0).Height


السطر الاول : قمنا بتعريف المتغير Egy و ذلك للاشارة انه عنصر تحكم ...ويمكنك تحديد نوع العنصر التحكم مباشرة و ذلك عن طريق هذا الامر CheckBox بدلا من Control ولكنى فضلت ان تكون عامة لأستطيع اى عنصر اخر فيما بعد .

السطر الثانى : هو الخاص بإضافة عنصر التحكم CheckBox ....ويرجى ملاحظة أن لاضافة هذا العنصر تضمن ثلاث معايير ..

المعيار الاول : هو نوع العنصر المراد وضعة اثناء التشغيل VB.CheckBox أو VB.TextBox أو vb .commandButtom .....وغيرها من الاكواد

المعيار الثانى : هو وضع أسم لهذا العنصر الجديد و الذى سوف نتعامل به فى صفحة الكود .

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

ويجب ملاحظة انك عند كتابة تلك الاكواد لن تجد صفحة الكود تتفاعل معك كما كنت متعود سابقا فلا تقلق من هذا الموضوع

جزاكم الله خيرا يا اخى

شكرا جزيلا يا ابو سجود