انت هنا الان : شبكة جامعة بابل > موقع الكلية > نظام التعليم الالكتروني > مشاهدة المحاضرة
الكلية كلية العلوم
القسم قسم الفيزياء
المرحلة 2
أستاذ المادة نضال محمد عبيد الشريفي
03/03/2014 09:55:32
م/ انضر الملف المرفق
إنشاء مصفوفة عناصر تحكم القائمة
لقد أدى إسناد القيمة صفر للخاصية Index التابعة للخط الفاصل، إلى ما يدعى بمصفوفة عناصر تحكم القائمة. سوف تدعى هذه المصفوفة بالاسم mnuItems، لأنك كتبت الاسم mnuItems في الخاصية Name.
تتألف المصفوفة mnuItems حتى هذه اللحظة، من بند واحد هو الخط الفاصل Separator Bar (أي بمعنى أن البند mnuItems(0) هو بند الخط الفاصل).
سيضيف برنامجنا مع كل اختيار للبند إضافة بند من القائمة تغيير، أثناء تنفيذ البرنامج بنداً جديداً إلى المصفوفة mnuItems. ونتيجة لذلك، سيظهر المزيد من بنود القائمة تحت بند الخط الفاصل.
? اكتب النص التالي في الإجراء mnuAdd_Click():
Private Sub mnuAdd_Click()
gLastElement زيادة المتحول
gLastElement = gLastElement + 1
mnuItems[] إضافة عنصر جديد للمصفوفة
Load mnuItems(gLastElement)
تحديد العنوان للبند الجديد
mnuItems(gLastElement).Caption = _
"البند " + Str(gLastElement)
بما أنه تم إضافة بند جديد للقائمة المتغيرة
لذلك يجب تفعيل البند إزالة بند
mnuRemove.Enabled = True
End Sub
? اكتب النص التالي في الإجراء mnuRemove_Click():
المادة المعروضة اعلاه هي مدخل الى المحاضرة المرفوعة بواسطة استاذ(ة) المادة . وقد تبدو لك غير متكاملة . حيث يضع استاذ المادة في بعض الاحيان فقط الجزء الاول من المحاضرة من اجل الاطلاع على ما ستقوم بتحميله لاحقا . في نظام التعليم الالكتروني نوفر هذه الخدمة لكي نبقيك على اطلاع حول محتوى الملف الذي ستقوم بتحميله .
الرجوع الىلوحة التحكم
|