السلام عليكم ورحمة الله وبركاته
أهلا أخي الكريم , أرجوا المعذره منك أخي على التأخير في الرد وذلك بسبب الإنشغال , أخي الكريم تم تعديل المثال بماطلبته , تم عمل الآتي :
- إضافة موديل للتحكم بالقوائم أو لإنشاء القوائم بالكود , ولذلك لطلبك السابق في موضوع مستقل لكي تنشئ قوائم بناءً على محتوى الجدول الذي يضم أسماء لستات القنوات والجدول الذي يضم أسماء القنوات , تم عمل الكود اللازم لإنشاء القوائم بالكود يعني برمجيا .
- ملاحظة :- يوجد في الموديل إجراء بإسم ProcessMenu يوجد في داخله سطر يحتوي على إسم الفورم الذي توجد فيه الدالة MenuItemClick التي تستقبل العناصر المنشأه بالكود عند الضغط عليها , يجب تغيير إسم الفورم الموجود قبل إسم الدالة بإسم الفورم الذي تريد إنشاء القوائم فيه برمجيا ويجب ان تنسخ الدالة MenuItemClick بداخله .
- الدالة MenuItemClick يجب أن تكون داخل الفورم الذي ستنشئ القوائم فيه برمجيا الدالة تستقبل أي عنصر يتم الضغط عليه سواء التي تم إنشائها برمجيا وأيضا التي تم إنشائها يدويا أثناء التصميم حيث يمرر للدالة عنوان العنصر الظاهر عليه لذلك إذا كنت تريد أن تتعامل مع عناصر معينه وتترك عناصر أخرى يجب أن تضع جملة IF الشرطيه لكل تحدد ما إذا كان العنصر الذي تم إستقباله هو الذي تريد التعامل معه أو لا كما ستشاهد في المثال بعد التعديل في داخل الدالة .
- تم عمل الكود في داخل الدالة بحيث إذا كان عنوان العنصر الذي تم إستقباله يحتوي على كلمة channel فيتم إستخراج صفحة الإنترنت من الريسورس ووضع العنوان في داخل صفحة الإنترنت لذلك إذا قمت بوضع مثلا روابط تحتوي على نص ثابت في كل الروابط ضعه مكان كلمة channel لكي يتم التعرف على العنصر الذي عنوانه عباره عن رابط القناه ووضعه في صفحة الإنترنت .
- ملاحظه مهمه جدا :- لابد لك من وضع هاذين الكودين التاليين دائما في حدث الـ Form_Load وحدث الـ Form_Unload للفورم الذي ستنشئ فيه القوائم برمجيا :
- هذا في حدث الـ Form_Load
PHP كود :
Dim lngRC As Long
lngRC = SubClass(Me)
- هذا في حدث الـ Form_UnLoad
PHP كود :
Dim lngRC As Long
lngRC = UnSubClass(Me)
وذلك لكي تعمل الدالة MenuItemClick في إستقبال عناصر القوائم التي تم الضغط عليها .
- بالتوفيق .