[RaggiTech]

ماذا لو أردت أن تضيف للتطبيق الذى سينشأ - كلاس Class هل فكرت فى ذلك ؟؟؟

كود :

Dim Class_inCreateApp As New CodeTypeDeclaration("BADRMEDIA_Class")
Class_inCreateApp.IsClass = True
Class_inCreateApp.Attributes = MemberAttributes.Public Or MemberAttributes.Static
NameSpace_inCreateApp.Types.Add(Class_inCreateApp)

هنا أضفنا Class باسم BADRMEDIA_Class


ولكن لم يعرف البرنامج بعد أنه Class

لكن فى السطر الثاني أخبرناه أنه Class

كود :

Class_inCreateApp.IsClass = True

وبنفس الطريقة يمكن إنشاء IsInterface وغيرها من الأنواع


فى السطر الثاثل عرفنا نوع التعريف هل هو Static أم Public

وفي النهاية أضفنا الكلاس للمشروع الجديد

كود :

NameSpace_inCreateApp.Types.Add(Class_inCreateApp)