منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

للتوضيح اكتر عامل برنامج عايزة ينفذ اوامر من خلال كتابتها المباشرة داخل اداة textbox
كمثال
لو كتبنا end
وضغطنا علي زر تنفيذ الامر ( البرنامج يقف )
لو كتبنا علي سبيل المثال
وضغطنا ع الزر نلاقية نفذ الكود وكتب في ال text2 - gg

@amir_alzubidy
شكرا لسرعة الرد
الامر الي انت كاتبة دة عبارة عن قاعدة if
انما انا مقصدش كدة الي قصدة اني مثلا بكتب كود جديد في التيكست وعند الضغط علي انتر يتنفذ الامر
كأني كاتب الامر دة في شاشة الاوامر الاساسية
مثال لو عايز اعمل تعديل علي حاجة معينة او اظهر رسالة معينة احرك حاجة من مكان لمكان
انا شفتها في برنامج قبل كدة كان عامل 2 تيكست
وكان بيكتب الامر الي عاوزة يتنفذ في التيكست رقم واحد فايتنفذ في الفورم
مثال لو عايز التيكست 2 الشمال بتاعة = 220
او يكون لون الخلفية بتاعتة اخضر
او يتحكم في العرض و الطول
بس عن طريق شفرات
بيكتب الشفرة كاملة في التكست 1 ويدوس انتر والشفرة المكتوبة تتنفذ في الفورم
انا اسف اني طولت بس الموضوع يستاهل

السلام عليكم ورحمة الله وبركاته

انت تقصد أداة script Control
لك مثال لتغيير عنوان الفورم والزر
بالتوفيق

' +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

تمام ومتشكر جدا ً