تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة :: الحصول على الـForms الموجودة في المشروع في هيئة System.Windows.Forms.Form
#1
السلام عليكم و رحمة الله و بركاته،
اليوم أقدم لكم دالة تأتي بجميع الـForms الموجودة في المشروع لكن في هيئة
PHP كود :
System.Collections.Generic.List(Of System.Windows.Forms.Form
بصراحة لست أنا من كتب الكود، أنا وجدته بالصدفة في أحد المواقع الأجنبية أثناء بحثي عن كود آخر ثم عدلت عليه و وضعته في دالة

الدالة:
PHP كود :
Public Function GetAllForms() As System.Collections.Generic.List(Of System.Windows.Forms.Form)
        
Dim returnValue As New System.Collections.Generic.List(Of System.Windows.Forms.Form)
        
Dim formType As System.Type GetType(System.Windows.Forms.Form)
        
Dim A As System.Reflection.Assembly System.Reflection.Assembly.LoadFile(System.Windows.Forms.Application.ExecutablePath)
        For 
Each T As System.Type In A.GetTypes()
            If 
T.IsSubclassOf(formTypeThen
                returnValue
.Add(CType(System.Activator.CreateInstance(T), System.Windows.Forms.Form))
            
End If
        
Next
        
Return returnValue
    End 
Function 
كما كتبت صيغة أخرى للدالة لكي آتي بكل الـForms الموجودة في ملف مكتوب بالـ .Net
الدالة:

PHP كود :
Public Function GetAllForms(ByVal applicationPath As String) As System.Collections.Generic.List(Of System.Windows.Forms.Form)
        
Dim returnValue As New System.Collections.Generic.List(Of System.Windows.Forms.Form)()
        
Dim formType As System.Type GetType(System.Windows.Forms.Form)
        
Dim A As System.Reflection.Assembly System.Reflection.Assembly.LoadFile(applicationPath)
        For 
Each T As System.Type In A.GetTypes()
            If 
T.IsSubclassOf(formTypeThen
                returnValue
.Add(CType(System.Activator.CreateInstance(T), System.Windows.Forms.Form))
            
End If
        
Next
        
Return returnValue
    End 
Function 

يوجد بالمرفقات مثال على أستخدام كل من الدالتين
و السلام عليكم و رحمة الله و بركاته
Smile


الملفات المرفقة
.rar   Get all forms.rar (الحجم : 116.47 ك ب / التحميلات : 158)
الرد }}}
تم الشكر بواسطة:
#2
ينقل الى القسم المناسب..
الرد }}}
تم الشكر بواسطة:
#3
شكرا أخي وجزاك الله خيراً

وأخيراً وجدت ضالتي عندك

جعله الله في ميزان حسناتك
=======
سامي الخولي
=======
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم