+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox (/showthread.php?tid=12309)
كيفية تنفيذ كود مكتوب داخل اداة textbox - ghost_programmer - 16-05-15
للتوضيح اكتر عامل برنامج عايزة ينفذ اوامر من خلال كتابتها المباشرة داخل اداة textbox
كمثال
لو كتبنا end
وضغطنا علي زر تنفيذ الامر ( البرنامج يقف )
لو كتبنا علي سبيل المثال
كود :
text2.text="gg"RE: كيفية تنفيذ كود مكتوب داخل اداة textbox - ghost_programmer - 17-05-15
@amir_alzubidy
شكرا لسرعة الرد
الامر الي انت كاتبة دة عبارة عن قاعدة if
انما انا مقصدش كدة الي قصدة اني مثلا بكتب كود جديد في التيكست وعند الضغط علي انتر يتنفذ الامر
كأني كاتب الامر دة في شاشة الاوامر الاساسية
مثال لو عايز اعمل تعديل علي حاجة معينة او اظهر رسالة معينة احرك حاجة من مكان لمكان
انا شفتها في برنامج قبل كدة كان عامل 2 تيكست
وكان بيكتب الامر الي عاوزة يتنفذ في التيكست رقم واحد فايتنفذ في الفورم
مثال لو عايز التيكست 2 الشمال بتاعة = 220
او يكون لون الخلفية بتاعتة اخضر
او يتحكم في العرض و الطول
بس عن طريق شفرات
بيكتب الشفرة كاملة في التكست 1 ويدوس انتر والشفرة المكتوبة تتنفذ في الفورم
انا اسف اني طولت بس الموضوع يستاهل
RE: كيفية تنفيذ كود مكتوب داخل اداة textbox - ahmedabdelaliem - 18-05-15
السلام عليكم ورحمة الله وبركاته
انت تقصد أداة script Control
لك مثال لتغيير عنوان الفورم والزر
بالتوفيق
RE: كيفية تنفيذ كود مكتوب داخل اداة textbox - sami2015 - 18-05-15
' +ahmedabdelaliem
Private Sub Command1_Click()
Dim myscript As Object
Set myscript = CreateObject("ScriptControl")
myscript.Language = "VBScript"
myscript.AddObject "Form", Me, True
myscript.AddCode Text1.Text
myscript.AddObject "Form1", Me, True
myscript.AddCode Text2.Text
End Sub
RE: كيفية تنفيذ كود مكتوب داخل اداة textbox - ghost_programmer - 03-06-15
تمام ومتشكر جدا ً