[ali ahmed 1997]

(30-05-16, 05:02 PM)محمد كريّم كتب : طيب هذا مثال كويس http://www.dreamincode.net/forums/topic/...e-builder/
هذا مثال ممكن تستفيد منه http://www.codeproject.com/Articles/1928...howBuilder
بالتوفيق

المتال التانى بالسي شارب ولاكن على اية حال شكرا 
ول هناك ما تفيدنى به لاباس و لا اخفى عليك الموضوع مازال غير واضح ومع البحت الطويل وجدت طريقه لصنع البرنامج من كود console ولم اجد windows form هل لديك متال لدلك ؟

---

Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports System.IO
Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim NameSpace_inCreateApp As New CodeNamespace("BADRMEDIA")
        NameSpace_inCreateApp.Imports.Add(New CodeNamespaceImport("System"))

        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)

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


        Dim Compile_inCreateApp As New CodeCompileUnit
        Compile_inCreateApp.Namespaces.Add(NameSpace_inCreateApp)
        Dim CompilingParams As New Compiler.CompilerParameters()
        CompilingParams.ReferencedAssemblies.Add("system.dll")
        CompilingParams.GenerateInMemory = False
        CompilingParams.GenerateExecutable = True
        CompilingParams.OutputAssembly = "d:\BADRMEDIA.exe"
        Dim CodeProvider As New Microsoft.VisualBasic.VBCodeProvider
        Dim Compiler As ICodeCompiler = CodeProvider.CreateCompiler
        Dim CompilerResult As CompilerResults = Compiler.CompileAssemblyFromDom(CompilingParams, Compile_inCreateApp)


        If CompilerResult Is DBNull.Value Or CompilerResult.Errors.Count > 0 Then
            For i As Integer = 0 To CompilerResult.Errors.Count - 1
                MsgBox(CompilerResult.Errors(i).ToString)
            Next
        End If

    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
End Class





هادا الكود يعمل ولاكن لاكواد  console  فقط , كيف استخرج الكود الدي يشتغل ايضا windows form (احس باننى اقتربت)