اضافة اسماء جميع فورمات الى لست بوكس

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

  For Each typ In Assembly.LoadFrom(Application.ExecutablePath).GetTypes()
        	If typ.BaseType.Name = "Form" Then
            	ListBox1.Items.Add(typ.Name)
        	End If
    	Next

اما بتقنية الـ LINQ يمكنك عملها بسطر واحد وهو

 ListBox1.DataSource = Assembly.LoadFrom(Application.ExecutablePath).GetTypes().Where(Function(x) x.BaseType.Name = "Form").Select(Function(x) x.Name).ToList()

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

  For Each typ In Assembly.LoadFrom(Application.ExecutablePath).GetTypes()
        	If typ.BaseType.Name = "Form" Then
            	ListBox1.Items.Add(typ.Name)
        	End If
    	Next

اما بتقنية الـ LINQ يمكنك عملها بسطر واحد وهو

 ListBox1.DataSource = Assembly.LoadFrom(Application.ExecutablePath).GetTypes().Where(Function(x) x.BaseType.Name = "Form").Select(Function(x) x.Name).ToList()

استاذنا ومشرفنا الغالي شاكر لك لك الرد ولكن Assembly لم يتم التعرف عليها اثناء كتابتها فهل هناك مكتبه يجب اضافتها ؟

السلام عليكم ورحمه الله وبركاته

بالتأكيد اخي عبدالله System.Reflection

استاذنا الفاضل 'VB Helper'

اشكرك من اعماق قلبي 100%

ولكن طمعا في ماعندك سنستزيد

هل بالإمكان عمل نفس الفكرة ولكن ليس لأسماء الفورمات الكودية نريد اضافة عناوينها التي تظهر في الشريط العلوي للفورمة

أطيب تحية لشخصك الكريم

السلام عليكم ورحمه الله وبركاته

اخي يمكنك عمل المطلوب بالتعديل على الكود السابق على النحو التالي

 For Each typ In Assembly.LoadFrom(Application.ExecutablePath).GetTypes()
        	If typ.BaseType.Name = "Form" Then
            	ListBox1.Items.Add(CType(Activator.CreateInstance(typ), Form).Text)
        	End If
    	Next

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي يمكنك عمل المطلوب بالتعديل على الكود السابق على النحو التالي

 For Each typ In Assembly.LoadFrom(Application.ExecutablePath).GetTypes()
        	If typ.BaseType.Name = "Form" Then
            	ListBox1.Items.Add(CType(Activator.CreateInstance(typ), Form).Text)
        	End If
    	Next

استاذنا الفاضل كل الحب كل التقدير لك نعم بالفعل تم المطلوب

نشكر لك سعة صدرك ومجهودك المميز

وفقك الله تعالى