[trakktour]

(10-05-22, 02:45 PM)jemyx كتب : ارغب فى الحصول على إسم كل فورم موجود فى المشروع 
هل من مساعدة ؟

و عليكم السلام
تفضل

كود :

       Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
       Dim types As Type() = myAssembly.GetTypes()
       For Each myType As Object In types

           If myType.BaseType.FullName.ToString.ToUpper = "SYSTEM.WINDOWS.FORMS.FORM" Then
               MsgBox(myType.Name)
           End If
       Next