منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أمثلة ومشاريع أعضاء المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=114)
+---- قسم : مكتبة مشاريع وبرامج VB 6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=142)
+---- الموضوع : هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! (/showthread.php?tid=6671)



هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! - Ahmad Jawad - 24-10-12

بسم الله الرحمن الرحيم

كاتب الموضوع : abu2020


في الخطوات الاتيه سوف نتعلم كيف يمكن تطبيق الكود المكتوب في نص على اداة اخرى(لتكن زر امر)

اولا أضف الاداة Microsoft script control

ثانيا أضف صندوق نص وهو الذي سوف ننفذ الكود المكتوب داخله (Text1)

ثالثا اضف زرين امر
الاول Command1 و هو الذي عند الضغط عليه سينفذ البرنامج الكود المكتوب في (Text1)
الثاني Command2 وهو الذي سننفذ عليه الكود

رابعا أكتب هذا الكود في نافذة الاكواد

كود :
Private Sub Form_Load()
Call ScriptControl1.AddObject(Command2.Name, Command2)      
End Sub  
Private Sub Command1_Click()
Call ScriptControl1.ExecuteStatement(Text1.Text)  
End Sub

خامسا نفذ البرنامج واكتب أي كود داخل Text1 مثل

كود :
Command2.visible=false

واضغط على Command1

ستجد command2 اختفى

وهكذا مع باقي الاكواد

وهذا مثال


هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! - الود الكبيسي - 12-07-13

تسلم يالغالي ربي يوفقك


RE: هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! - اسلام الكبابى - 24-10-15

[b]بارك الله فيك
[/b]
خامسا نفذ البرنامج واكتب أي كود داخل Text1 مثل
كود :
كود :
Command2.visible=false
واضغط على Command1

وماذا لو أردت أن يكون الكود داخل Text1 هكذا

     
PHP كود :
If NNN <= 10 Then GoTo 20
      AA 
333: GoTo 50
20  AA 
111
50 
Print AA 
 
أرجو كتابة الكود كاملآ كما كتبته فى مثالك السابق

ولكم ألف شكر


RE: هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! - YousefOkasha - 26-05-18

اجل ..
شئ مثل هذا ولكن احتاج الكود بلغة vb.net