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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أستفسار عن قراءة الاسطر altoki939 6 114 27-03-24, 10:07 AM
آخر رد: altoki939
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 159 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,124 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  [VB.NET] استدعاء بيانات في TextBox بناء على combobox loay775 2 264 18-01-24, 05:07 PM
آخر رد: loay775

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


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