تحويل قيمة من فورم إلي فورم أخرى

السلام عليكم أخي الكريم :

يا أخي لنفرض أنك الآن ضمن الفورم 3 , و تريد أن تسحب قيمة txtPCode للفورم 1 المفتوح ...

سيصبح لديك مايلي :

Me.txtPCode.Text = Form1.txtPCode.Text

حيث أن Me هو الفورم 3 كما قلنا ...

هل هذا هو المطلوب ؟ وفقك الله .....

مرحبا

مشكور أخى ابو همام ولكن لم يصلح معى هذا الكود

وقد حاولت بهذه الطريقة قبل اول مشاركة ولم يصلح معى

Dim f As New FrmPersonal_Info
f (f2) .txtPCode.Text = me (F1) .txt1.text

هل من حل أخر

أخواني الافاضل

اذا أردتم نقل قيمة من فورم الي فورم آخر نتبع هذه الخطوات

ولنفترض ان عندنا فورم اسمة f1 يوجد علي الاتي

combobox1

وزر Btn1

وفورم آخر اسمة f2 يوجد عليه textbox1

المطلوب نقل القيمة الموجوده في الـ combobox1 الي textbox1 الموجود في الفورم الثاني f2

يتم ذلك من خلال الكود التالي الذي سيتم كتابتة تحت حدث الضغط علي زر Btn1 الموجود في f1

dim x as new f2
x.show()
x.textbox1.items.add(combobox1
)

شكر لكم جميعا

1 - يتم عمل MODUL و عرف فيه الاتى

PUBLIC FRM2 AS F2

PUBLIC FRM3 AS F3

2- داخل الحدث LOAD فى F2

FRM2=ME

3- داخل الحدث LOAD فى F3

FRM3=ME

و أكمل بقية خطوات برنامجك و لكن بعد الغاء هذا الكود

Dim f As New FrmPersonal_Info

اخوي الكريم

الكود هذا

Dim f As New FrmPersonal_Info
f.txtPCode.Text = me.txt1.text

بس ناقص اخر سطر اللي هوا

f.show

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

Me.TextBox1.Text = My.Forms.f1.TextBox2.Text

حيث ال

TextBox1

هي في الفورم الذي تريد ان ياخذ قيمه من فورم اخر

TextBox2و

هي في الفورم اللذي تريد نقل البيانات منه

للاسف يا إخوانى ولا كود من السابق نفع معى

لا اعلم ما السبب

اخي الكريم اذا انت تبغى اذا فتحت فورم f1 من f2 تطلع بعض البيانات الي موجوده في f2

في f1

انتبه انك كتبت الاكواد السابقه في جزء اللود (load( للفورم f1

يعني مثلا انت تبي اسم الموظف الموجود في f2 المدخل من خلال التكست بوكس يظهر في في تكست بوكس للf1

اكتب مايلي في جزء اللود لل f1

Me.TextBoxf1.Text = My.Forms.f2.TextBoxf2.Text

ksa_girl1 كتب:

اخي الكريم اذا انت تبغى اذا فتحت فورم f1 من f2 تطلع بعض البيانات الي موجوده في f2

في f1

انتبه انك كتبت الاكواد السابقه في جزء اللود (load( للفورم f1

يعني مثلا انت تبي اسم الموظف الموجود في f2 المدخل من خلال التكست بوكس يظهر في في تكست بوكس للf1

اكتب مايلي في جزء اللود لل f1

Me.TextBoxf1.Text = My.Forms.f2.TextBoxf2.Text

فعلا كما قلت أخى انا كتبت الكود ده فى الفورم f1 فى الحدث Closing

f2.TextBoxf2.Text = f1.TextBoxf1.Text

ولم يحدث شيىء ولا اى إستثناء ولا اى قيمة

ممكن اخي تعطيني الكود او تسوي فورم تجربه وانا ابي اشوف المشكله لاني انا استخدم هذي الطريقه بكثره

جرب المثال المرفق اذا كان يحجيب على سؤالكSEND_DATA_VIA_FORMS.rar

has_1975 كتب:

جرب المثال المرفق اذا كان يحجيب على سؤالكSEND_DATA_VIA_FORMS.rar

جزاك الله خير يا خى انت وكل من ساعدنى فى حل مشكلتى

لقد نجح مثالك وكان لابد من هذا الكود

  FRM1 = Me
سبحان الله

تحياتى