01-05-13, 04:49 AM
السلام عليكم جميعا
اخواني الكرام
عندي صفحات كثير من المنتدي القديم حفظتها (شكلمي كنت حاسس انة هيتقفل ) ولاكن عوضنا الله بهذا المنتدي الرائع ويعوضنا الله عوض خير ان شاء الله بكم وبأفكاركم
وان شاء الله سأرفع إهم المواضيع من المنتدي القديم إذا إردتم
------------------
هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! للأخ الفاضل abu2020
في الخطوات الاتيه سوف نتعلم كيف يمكن تطبيق الكود المكتوب في نص على اداة اخرى(لتكن زر امر)
اولا أضف الاداة Microsoft script control
ثانيا أضف صندوق نص وهو الذي سوف ننفذ الكود المكتوب داخله (Text1)
ثالثا اضف زرين امر
الاول Command1 و هو الذي عند الضغط عليه سينفذ البرنامج الكود المكتوب في (Text1)
الثاني Command2 وهو الذي سننفذ عليه الكود
رابعا أكتب هذا الكود في نافذة الاكواد
خامسا نفذ البرنامج واكتب أي كود داخل Text1 مثل
واضغط على Command1
ستجد command2 اختفى
وهكذا مع باقي الاكواد
اخواني الكرام
عندي صفحات كثير من المنتدي القديم حفظتها (شكلمي كنت حاسس انة هيتقفل ) ولاكن عوضنا الله بهذا المنتدي الرائع ويعوضنا الله عوض خير ان شاء الله بكم وبأفكاركم
وان شاء الله سأرفع إهم المواضيع من المنتدي القديم إذا إردتم
------------------
هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!! للأخ الفاضل 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 اختفى
وهكذا مع باقي الاكواد
