[elgokr]

(13-06-18, 06:00 PM)بيسك لكل العرب كتب : السلام عليكم 
أخي لم بنجح الكود هل يمكنك تطبيقه على مثال إذا تكرمت واسف على الإطالة وشكرا

مرفق المثال مع برنامج للاختبار

قم بكتابة Form2 أو Form1 عند اختبار البرنامج

ستجد السورس و البرنامج فى المرفقات

السورس (VB2015)

تحياتى لك

وتمنياتى لك التوفيق

[بيسك لكل العرب]

الشكر موصول لك أخي الجوكر على تعاونك الدائم والا محدود في هذا الصرح وجهودك يذكر فيشكر في الحقيقة 

الكود شغال تمام ولكن يحتاج إلى بعض التعديل كي يلائم العمل المطلوب مرفق مثال يوضح المطلوب وجزاك الله كل خير

[elgokr]

(14-06-18, 06:05 PM)بيسك لكل العرب كتب : الشكر موصول لك أخي الجوكر على تعاونك الدائم والا محدود في هذا الصرح وجهودك يذكر فيشكر في الحقيقة 

الكود شغال تمام ولكن يحتاج إلى بعض التعديل كي يلائم العمل المطلوب مرفق مثال يوضح المطلوب وجزاك الله كل خير

يجب ان يكون الـ Button2_Click بهذا الشكل

كود :

Dim Frm As Form = DirectCast(CreateObjectInstance(TextBox1.Text), Form)
       Frm.Show()
       Frm.Controls("TextBox1").Text = "Get Text Form1 : " & TextBox1.Text

الفكرة فى الكود هو انه يقوم بتكوين فروم بنائاً على فورم مصمم ومجهز لديك

ومن ثم تقوم فتحت مع تطبيق الاكواد التى تحتاج اليها للفورم

بمعنى الكود يفيدك فقد فى توفير تصميم الفورم بالتكرار

وليكن عندك فورم اضافة

وفورم اخر للتعديل

فكلاهما تصميم واحد ولكن المسميات بالداخل مختلفة

فهنا يمكنك عمل تصميم فورم واحد وعند ضغط زر فتح 

تقوم بارسال المسميات بناءاً لذلك

انما لو كنت حابب تستخدم الكود على انه لديك 10 فورم 

وتحتاج الكود لفتح كل كود وتنفيذ الكود ما لارساله للفورم

فانا ساقول لك

بالله عليك

ايهما افضل لك

ان تكتب فى كل مرة هذا الشكل

كود :

       Dim Frm As Form = DirectCast(CreateObjectInstance(TextBox1.Text), Form)
       Frm.Show()
       Frm.Controls("TextBox1").Text = "Get Text Form1 : " & TextBox1.Text

ام انك تستخدم هذا الشكل

كود :

       Form2.Show()
       Form2.TextBox1.Text = "Get Text Form1 : " & TextBox1.Text

يعنى لتوفر كتابة كلمة تكتب بدالها الكثير من الجمل

كما قلت اكون معك فى استخدام الكود كما هو فى المرفقات

شاهده لتعرف كيف يمكنك الاستفادة منه

مرفق السورس + البرنامج

شاهد ستجد فى السورس مجرد Form2 فقط

بينما عند تطبيق ما بالبرنامج

ستجد كما لو انه فتح Form2 و Form3

اتمنى يكون السوس موضح ويفيدك فيما تريد استخدامه

تحياتى لك

وتمنياتى لك التوفيق

[بيسك لكل العرب]

(14-06-18, 09:24 PM)elgokr كتب :

(14-06-18, 06:05 PM)بيسك لكل العرب كتب : الشكر موصول لك أخي الجوكر على تعاونك الدائم والا محدود في هذا الصرح وجهودك يذكر فيشكر في الحقيقة 

الكود شغال تمام ولكن يحتاج إلى بعض التعديل كي يلائم العمل المطلوب مرفق مثال يوضح المطلوب وجزاك الله كل خير

يجب ان يكون الـ Button2_Click بهذا الشكل

كود :

Dim Frm As Form = DirectCast(CreateObjectInstance(TextBox1.Text), Form)
       Frm.Show()
       Frm.Controls("TextBox1").Text = "Get Text Form1 : " & TextBox1.Text

الفكرة فى الكود هو انه يقوم بتكوين فروم بنائاً على فورم مصمم ومجهز لديك

ومن ثم تقوم فتحت مع تطبيق الاكواد التى تحتاج اليها للفورم

بمعنى الكود يفيدك فقد فى توفير تصميم الفورم بالتكرار

وليكن عندك فورم اضافة

وفورم اخر للتعديل

فكلاهما تصميم واحد ولكن المسميات بالداخل مختلفة

فهنا يمكنك عمل تصميم فورم واحد وعند ضغط زر فتح 

تقوم بارسال المسميات بناءاً لذلك

انما لو كنت حابب تستخدم الكود على انه لديك 10 فورم 

وتحتاج الكود لفتح كل كود وتنفيذ الكود ما لارساله للفورم

فانا ساقول لك

بالله عليك

ايهما افضل لك

ان تكتب فى كل مرة هذا الشكل

كود :

       Dim Frm As Form = DirectCast(CreateObjectInstance(TextBox1.Text), Form)
       Frm.Show()
       Frm.Controls("TextBox1").Text = "Get Text Form1 : " & TextBox1.Text

ام انك تستخدم هذا الشكل

كود :

       Form2.Show()
       Form2.TextBox1.Text = "Get Text Form1 : " & TextBox1.Text

يعنى لتوفر كتابة كلمة تكتب بدالها الكثير من الجمل

كما قلت اكون معك فى استخدام الكود كما هو فى المرفقات

شاهده لتعرف كيف يمكنك الاستفادة منه

مرفق السورس + البرنامج

شاهد ستجد فى السورس مجرد Form2 فقط

بينما عند تطبيق ما بالبرنامج

ستجد كما لو انه فتح Form2 و Form3

اتمنى يكون السوس موضح ويفيدك فيما تريد استخدامه

تحياتى لك

وتمنياتى لك التوفيق

جزاك الله كل الجزاء وكل عام وأنت والأسرة الكريمة بألف خير وعساك من عواده

[elgokr]

عيد سعيد عليك وعلى الاسرة

وكل عام وانت بخير

تحياتى لك

وتمنياتى لك التوفيق