+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مقالات vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=29)
+---- الموضوع : طريقة اضافة الادوات برمجياً (/showthread.php?tid=6745)
طريقة اضافة الادوات برمجياً - Ahmad Jawad - 28-10-12
السلام عليكم ورحمة الله وبركاته
كاتب الموضوع :: محمد شريقي
الفكرة هي بانشاء اول عنصر بشكل عادي اي في وقت البرمجة ثم نجعلها مصفوفة من العناصر ولكنها مكونة من عنصر وحيد ويتم ذلك من خلال جعل الخاصية index للاداة التي تريد اضافتها تساوي الصفر ثم بعد ذلك من خلال الكود نقوم باضافة عناصر جديدة الى المصفوفة.
عند انشاء عنصر جديد في المصفوفة يكون لها ذات الاسم ولكن الخاصية index هي التي تتغير وعند توليد اداة جديدة يجب ان نحدد قيمة الـ index التابعة لها.
وهذا الكلام يؤدي الى انه اذا اردت اضافة اي اداة من خلال الكود فالطريقة هي كالتالي :
1 ضع عنصر على الفورم من الاداة التي تريد اضافتها برمجياً
2 اجعل الخاصية index للعنصر مساوية للصفر
3 قم بكتابة الكود التالي :
PHP كود :
Load Name(Number)
Name = اسم الاداة التي تريد اضافتها مثلاً command1 او text1 او ...... الخ
Number = رقم الـindex للاداة الجديدة ولكن انتبه هذا الرقم لا يجوز ان يكون مشترك بين اداتين تحملان نفس الاسم لذلك اذا اردت ان تضيف عدد محدد من الادوات عليك بحلقة for او اذا كان العدد غير محدد مسبقاً فعليك اما بمتغير عام مثل البرنامج السابق او بمتغير static
ملاحظة : يجب عليك ان تقوم بتغيير مكان ظهور الاداة الجديدة حتى لا تظهر فوق القديمة اقصد الخاصيتان Left و Top او احداهما
هذا الكود يوضح :
PHP كود :
For H = 1 To 10 Load Command1(H) Command1(H).Top = Command1(H - 1).Top + Command1(H - 1).Height + 100 Command1(H).Visible = TrueNext H
وهذا مثال
بالتوفيق