تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox
#1
Exclamation 
السلام عليكم أيها المبرمجون ..

لو سمحتم مساعدتي في مشكلة برمجية لم أعرف حلها !
ما هو الكود الذي أحطه في الزر Button1 لكي يقرأ كود (رسالة التنبيه) الذي في TextBox1 ؟
 
أرفقت لكم التطبيق الذي فيه السؤال ، وهو بلغة VB.net
أرجو تحميله ليتضح لكم السؤال ؛ لتسهل عليكم الإجابة 

أنتظر ردكم الكريم ، وشكرًا .


الملفات المرفقة
.rar   MessageBox.rar (الحجم : 64.54 ك ب / التحميلات : 17)
الرد }}
تم الشكر بواسطة: أشرف كريم 2
#2
(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.Reflection
الرد }}
تم الشكر بواسطة: أشرف كريم 2
#3
ما شاء الله عليك

أنت رائع جدا جدا

الكود شغال فعلا 100%

جزاك الله خيرًا ما قصرت بارك الله فيك .

واسمحني تعبتك في مساعدتي على الحصول على هذا الكود الرائع .

اشكرك من كل قلبي .
الرد }}
تم الشكر بواسطة: trakktour , أشرف كريم 2
#4
(30-10-21, 03:06 AM)أبو خالد الشكري كتب : ما شاء الله عليك

أنت رائع جدا جدا

الكود شغال فعلا 100%

جزاك الله خيرًا ما قصرت بارك الله فيك .

واسمحني تعبتك في مساعدتي على الحصول على هذا الكود الرائع .

اشكرك من كل قلبي .

تعبك راحة اخي الكريم
بتوفيق ان شاء الله
الرد }}
تم الشكر بواسطة: أشرف كريم 2



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


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