+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox (/showthread.php?tid=39820)
كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox - أبو خالد الشكري - 30-10-21
السلام عليكم أيها المبرمجون ..
لو سمحتم مساعدتي في مشكلة برمجية لم أعرف حلها !
ما هو الكود الذي أحطه في الزر Button1 لكي يقرأ كود (رسالة التنبيه) الذي في TextBox1 ؟
أرفقت لكم التطبيق الذي فيه السؤال ، وهو بلغة VB.net
أرجو تحميله ليتضح لكم السؤال ؛ لتسهل عليكم الإجابة
أنتظر ردكم الكريم ، وشكرًا .
RE: كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox - trakktour - 30-10-21
(30-10-21, 01:39 AM)أبو خالد الشكري كتب : السلام عليكم أيها المبرمجون ..
لو سمحتم مساعدتي في مشكلة برمجية لم أعرف حلها !
ما هو الكود الذي أحطه في الزر Button1 لكي يقرأ كود (رسالة التنبيه) الذي في TextBox1 ؟
أرفقت لكم التطبيق الذي فيه السؤال ، وهو بلغة VB.net
أرجو تحميله ليتضح لكم السؤال ؛ لتسهل عليكم الإجابة
أنتظر ردكم الكريم ، وشكرًا .
و عليكم السلام اخي
تفضل
كود :
Dim Code As String = TextBox1.Text
TextBox2.Clear()
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")
Dim vbProv = New VBCodeProvider()
Dim vbParams = New CompilerParameters()
vbParams.ReferencedAssemblies.Add("System.dll")
vbParams.ReferencedAssemblies.Add("System.Windows.Forms.dll")
vbParams.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
vbParams.GenerateExecutable = False
vbParams.GenerateInMemory = True
vbParams.OutputAssembly = "MyCode"
Dim compResults = vbProv.CompileAssemblyFromSource(vbParams, Code)
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
Dim obj As Object = compResults.CompiledAssembly.CreateInstance("TempClass")
Dim args() As Object = {Me.TextBox2}
Try
Dim result As Object = obj.GetType().InvokeMember("MyCode", BindingFlags.InvokeMethod, Nothing, obj, args)
Catch Oops As Exception
MessageBox.Show(Oops.Message)
End Try
End Ifضع هذا الكود في button
و اضف textbox اخر
و لا تنسى استدعاء المكتبات
كود :
Imports System.CodeDom.Compiler
Imports System.ReflectionRE: كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox - أبو خالد الشكري - 30-10-21
ما شاء الله عليك
أنت رائع جدا جدا
الكود شغال فعلا 100%
جزاك الله خيرًا ما قصرت بارك الله فيك .
واسمحني تعبتك في مساعدتي على الحصول على هذا الكود الرائع .
اشكرك من كل قلبي .
RE: كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox - trakktour - 30-10-21
(30-10-21, 03:06 AM)أبو خالد الشكري كتب : ما شاء الله عليك
أنت رائع جدا جدا
الكود شغال فعلا 100%
جزاك الله خيرًا ما قصرت بارك الله فيك .
واسمحني تعبتك في مساعدتي على الحصول على هذا الكود الرائع .
اشكرك من كل قلبي .
تعبك راحة اخي الكريم
بتوفيق ان شاء الله