[RaggiTech]

جاء دور أن نضيف Method للتطبيق المنشأ

كود :

Dim Method_inCreateApp As New CodeEntryPointMethod()
Method_inCreateApp.Attributes = MemberAttributes.Public Or MemberAttributes.Static
Method_inCreateApp.Statements.Add(New CodeSnippetStatement(TextBox1.Text))
Class_inCreateApp.Members.Add(Method_inCreateApp)

قمنا بانشاء Method باسم Method_inCreateApp ولو لاحظنا فى فى نوعه سنجد أنه CodeEntryPointMethod

وهذا يعنى أنه يعمل عمل الاجراء Main منطقة دخول البرنامج

ثم حددنا Attributes كما في السطر الثاني



فى التطبيق نحن نضيف TextBox وزر Button


في السطر الثالث

كود :

Method_inCreateApp.Statements.Add(New CodeSnippetStatement(TextBox1.Text

))


هذا أهم سطر فى الفكرة وهو أننا أخذنا الكود المكتوب في مربع النص TextBox بحيث ننفذه


وفى السطر الأخير قمنا بشئ اخر وهو أننا أضفنا Method_inCreateApp إلى الكلاس وليس الى فضاء الاسم لأن Method جزء من Class ثم الكلاس جزء من فضاء الاسم

كود :

Class_inCreateApp.Members.Add(Method_inCreateApp)