تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنفيذ كود مكتوب في TextBox
#1
Exclamation 
السلام عليكم و رحمه الله و بركاته ..
احتاج الكود الذي ينفذ الكود الذي مكتوب في textbox
أقصد ان مثلا قمت بإضافة textbox
و أضفت Button
و كتبت في الText box مثلاً End
و عندما أضغط علي الـ Button يقوم بتنفيذ الكود و هو "End"
الرد }}
تم الشكر بواسطة:
#2
طلبك مش مفهوم يا يوسف
يعني ايه نوع الكود ؟
لو تبحث عن محرك سكربتات داخل البرنامج فممكن تصمم واحد بنفسك ولكن هذا موضوع كبير جدا

اقرأ هذا الموضوع ولو اني اعتقد انه بعيد على طلبك
http://vb4arb.com/vb/showthread.php?tid=15976

الرد }}
تم الشكر بواسطة: elgokr , YousefOkasha
#3
تم نقل الموضوع  

لقسم الاسئلة
الرد }}
تم الشكر بواسطة:
#4
أقصد ان مثلا قمت بإضافة textbox
و أضفت Button
و كتبت في الText box مثلاً End
و عندما أضغط علي الـ Button يقوم بتنفيذ الكود و هو "End"
الرد }}
تم الشكر بواسطة:
#5
يمكنك الاطلاع على هذا الرابط

ومن حيث المثال لما تحتاج اليه ( المثال منقول ) ....
كود :
Imports System.IO
Imports System.Reflection
Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports Microsoft.VisualBasic
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ' read code from textbox
       Dim Code As String = TextBox1.Text
       ' clear output textbox
       TextBox2.Clear()
       ' create fully functional assembly string
       Code = ("Imports System" & vbCrLf &
               "Imports System.Windows.Forms" & vbCrLf &
               "Imports Microsoft.Visualbasic" & vbCrLf &
               "Public Class TempClass" & vbCrLf &
               "Public Sub MyCode(ByVal Textbox2 As TextBox)" & vbCrLf &
               Code & vbCrLf &
               "End Sub" & vbCrLf &
               "End Class")
       ' create the compiler
       Dim vbProv = New VBCodeProvider()
       ' create parameters to pass to the compiler
       Dim vbParams = New CompilerParameters()
       ' add referenced assemblies.  
       vbParams.ReferencedAssemblies.Add("System.dll")
       vbParams.ReferencedAssemblies.Add("System.Windows.Forms.dll")
       vbParams.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
       ' generate an assembly in memory
       vbParams.GenerateExecutable = False
       vbParams.GenerateInMemory = True
       ' give it a name
       vbParams.OutputAssembly = "MyCode"
       ' compile the code and get the compiler results
       Dim compResults = vbProv.CompileAssemblyFromSource(vbParams, Code)
       ' check for compile errors  
       If compResults.Errors.HasErrors Then
           Dim ErrorMsg As String = compResults.Errors.Count.ToString & " Errors:"
           For x As Integer = 0 To compResults.Errors.Count - 1
               ErrorMsg = ErrorMsg & vbCrLf & "Line: " & compResults.Errors(x).Line.ToString & " - " + compResults.Errors(x).ErrorText
           Next
           TextBox2.Text = ErrorMsg & vbCrLf & vbCrLf + Code
       Else
           ' create instance of the temporary compiled class
           Dim obj As Object = compResults.CompiledAssembly.CreateInstance("TempClass")
           ' use textbox 2 for output
           Dim args() As Object = {Me.TextBox2}
           Try
               ' execute the code  
               Dim result As Object = obj.GetType().InvokeMember("MyCode", BindingFlags.InvokeMethod, Nothing, obj, args)
           Catch Oops As Exception
               ' oops
               MessageBox.Show(Oops.Message)
           End Try
       End If
   End Sub
End Class




الامر ليس من السهل لاتمام شرحه فى بعض الجمل
لكن اذا كنت جيداً فى اللغة الانجليزية يمكنك البحث اكثر على الموضوع والتعمق فى

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: YousefOkasha , سعود
#6
هذا مثال جميل لكنه بلغة الفيجول 6
ممكن احد الاخوان يساعدك بكتابته الى الدت نت
الرد }}
تم الشكر بواسطة:
#7
اجل شئ مثل هذا ..
لكن احتاج الأكواد بلغة الفيجوال بيسك 2010
و شكرا لجهودك
الرد }}
تم الشكر بواسطة:
#8
تفظل اخي
جرب المرفق


الملفات المرفقة
.rar   tt.rar (الحجم : 80.52 ك ب / التحميلات : 76)
الرد }}
تم الشكر بواسطة: elgokr , YousefOkasha
#9
مو شغال !
احتاج حل ..
الرد }}
تم الشكر بواسطة:
#10
(29-05-18, 05:36 AM)YousefOkasha كتب : مو شغال !
احتاج حل ..

المشروع يعمل اخى خاص الاخ عبد الرؤوف

فقط قم بكتابة التالى لاختبار عمل البرنامج
PHP كود :
command2.text "test" 

أو قم بكتابة التالى
كود :
MsgBox("عمل الاختبار بنجح")

يمكنك تشغيل البرنامج من خلال
فتح المجلد والدخول على المسار التالى
PHP كود :
tt\bin\Debug 

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم