السلام عليكــم ورحمـة الله وبركاتــه ،،
تحيه طيبه لجميع الاعضاء
لدي نظام واعمل عليه حاليا على ال vb.net 5 وارغب في عرض جميع اسماء الشاشات في المشروع حتى وان كانت مغلقه
علما باني استخدم شاشه رئيسيه MDIForm
ارجو المساعده في ايجاد الحل .
ولكم تحياتي
اريد معرفة كيف يمكن قرائة اسماء الشاشات في المشروع
مرحباً أخي الكريم,
لمعرفة أسماء الـ Forms المعروضين فعلياً, استخدم التالي :
[color= #000000; font-weight: bold;]Private [color= #000000; font-weight: bold;]Function GetSFNames[color= #009900;]([color= #009900;]) [color= #b1b100;]As String[color= #009900;]([color= #009900;])
Dim LST [color= #b1b100;]As [color= #000000; font-weight: bold;]New [color= #990000;]List[color= #009900;](Of String[color= #009900;])
[color= #b1b100;]For [color= #990000;]Each Frm [color= #b1b100;]As Form In My[color= #339933;].Application[color= #339933;].OpenForms
LST[color= #339933;].Add[color= #009900;](Frm[color= #339933;].Name[color= #009900;])
[color= #990000;]Next
[color= #b1b100;]Return LST[color= #339933;].ToArray
[color= #990000;]End [color= #000000; font-weight: bold;]Functionالإستخدام ( مع تحكم ListBox ) :
ListBox1[color= #339933;].Items[color= #339933;].AddRange[color= #009900;]( GetFSNames[color= #009900;]([color= #009900;]) [color= #009900;])
أما إذا كانت تريد تحصيل أسماء الـ Forms المعروضين ضمن الـ MDI Parent, إذن استخدم التالي :
[color= #000000; font-weight: bold;]Private [color= #000000; font-weight: bold;]Function GetSCFNames[color= #009900;]([color= #009900;]) [color= #b1b100;]As String[color= #009900;]([color= #009900;])
Dim LST [color= #b1b100;]As [color= #000000; font-weight: bold;]New [color= #990000;]List[color= #009900;](Of String[color= #009900;])
[color= #b1b100;]For [color= #990000;]Each Frm [color= #b1b100;]As Form In Me[color= #339933;].MdiChildren
LST[color= #339933;].Add[color= #009900;](Frm[color= #339933;].Name[color= #009900;])
[color= #990000;]Next
[color= #b1b100;]Return LST[color= #339933;].ToArray
[color= #990000;]End [color= #000000; font-weight: bold;]Functionالإستخدام ( مع تحكم ListBox ) :
ListBox1[color= #339933;].Items[color= #339933;].AddRange[color= #009900;]( GetFCSNames[color= #009900;]([color= #009900;]) [color= #009900;])
لكن بالنسبة لماذكرته أنت, أنك تريد تحصيل أسماء جميع النماذج أي ( المعروضة والغير معروضة ) فعليك تصريح مصفوفة نصية تحوي أسماء الـ Forms جميعها, وإذا أردت أن تظهر للمستخدم مالـ Forms المعروضين بالفعل بإستخدام أي إشارة, فعليك كما ذكرت سابقاً تصريح مصفوفة نصية تحوي جميع أسماء النماذج ومن ثم استخدام إحدى العمليتن السابقتين لكن أيضاً عليك إضافة أو تصريح بيانات قَيمة اي ( Structure ) يحوي متغيّران ( الأول نصي والثاني عددي ), في مرفقات مشروع بسيط سيشرح لك الفكرة بشكل بسيط, أرجو أن يقوم بإفادتك .
بالتوفيق
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 25 مارس 2009 في 19:06
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
مشكور اخوي بشار على تعاونك وردك
والمثال اللي ذكرت جيد ومفيد بس لا ارغب في الاعلان عن اسماء الشاشات انا ارغب في قرائة اسماء الشاشات عن طريق اسم المشروع وعرضها جميعها في قائمة بغض النظر عن عددها بمعنى انه حتى ولو زاد عدد الشاشات ليس هناك حاجه لان اضيف اسمها في المرصوصه او في متغير.
لان انا عندي MDIForm وبها اكثر من 20 شاشه اريد ان اختار من القائمه الرئيسية عرض اسماء الشاشاة في شاشه داخلها ListBox
حتى الان لم اتوصل الى الحل المطلوب
انا عندي مشروع مكون من عده شاشات
اريد عند تشغيل البرنامج يقول البرنامج بعرض جميع اسماء الشاشاة الموجوده في المشروع حتى وان كانت غير نشطه ان يقوم بعرضها في قائمه او في جدول ايا كان
المهم ابي اعرف كل الشاشات الموجوده في البرنامج بتاعي .