أرجو المساعدة...

اقتباس

عندي تكست أريد عندما أقوم بكتابة أمر بها أثناء تنفيذ البرنامج يتنفذ هذا الكود

ضع الكود التالي في حدث Chang

Private sub Text1_Chang()
form1.caption="1234"
end sub

اخي فواز

على ما اعتقد ليس هذه ما يريده الاخ hg_12345

الشكل الصحيح

Private Sub Text1_Change()
Form1.Caption = Text1.Text
End Sub

في الحالة الثانية تريد تسوي " Compiler" مترجم و هذا يحتاج الى وقت كثير

مثال ارجو ان يفيدكم:

Tx.zip

أشكر الأخ فواز و محمد صادق

و الذي أريده فعلاً هو عمل مترجم كما قال الأخ محمد صادق

و فكرة الأخ محمد جميل جداً

لكن يامحمد انظر معي

Select Case Text2.Text

Case "Exit":

End

Case "Show":

Form2.Show

End Select

طيب لو أردنا كتابة اسم الفورم في تكست ومن ثم هو يقوم تلقائياً بإظهارها

يعني كتبت داخل مربع نص Form1

أريد أن يتم تلقائياً أخذ هذه اسم الفورم و تنفيذ الكود عليها فكيف ذلك يعني

Text1="Form1"

Select Case Text1.Text

Case "Show":

المكتوب داخل الفورم .Show

End Select

فكيف ذلك ارجو أن تكون قد فهمت علي

و لاتقل لي أن أفعل احتمالات حتى لأسماء الفورمات

if text1.caption="form1" then form1.show

if text1.caption="form2" then form2.show

لذا أرجو منك عدم استخدام الاحتمالات في اسماء النوافذ

وألف شكر

حقيقةً كنت أفكر منذ فترة بمثل هذا، إنشاء شيء يشبه الـ Compiler وقد نسيته، والآن عندما قرأت الموضوع تذكرتها وأعدت النظر فيه ووجدت حلاً.

كان بالضبط طلبي أن أسند خاصية لكائن ما في البرنامج بذكر اسمه في مربع النص.

والآن وجدت هذه الطريقة في الملف المرفق، أعتقد أنها تفي بالغرض المطلوب للأخ hg_12345.

لم أحل نفس السؤال المطروح بالتحديد إنما حل للمشكلة بشكل عام ويمكن الاستفادة منها لأي غرض تريده، فهذا ما أعتقد أن الأخ hg_12345 يريده. وأتمنى أن يفي هذا بالغرض فعلاً.

Compiler.zip

أشكرك يا أخي العزيز MMSs على مساعدتك

:rolleyes: و أتمنى لك التوفيق و النجاح بالدنيا والآخرة :rolleyes: