(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 (احس باننى اقتربت)