الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فتح فورم جديد عن الرجوع الى الفورم

مغلق
بدأه alimf في 29 مارس 2007 · 7 رد · 690 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

وبعد

المشكلة طويلة شوي ولذلك عملت مثال مرفق للتوضيح المشكلة هيه

عندي فورم مسموح له الفتح اكثر ممن مرة من النافذة الرئيسية للبرنامج باسم (الاسماء) وفي داخل الفورم في زر بحث زر البحث يقوم بالذهاب الى فورم البحث عند الانتهاء من البحث مثلا تقوم بضغط زر نسخ وعودة عند العودة الى فورم (الاسماء) تبداء المشكلة يقوم البرنامج بفتح نافذة جديدة من (الاسماء) غير إلي كونت عليها وينسخ فيها البيانات .

وشكراً

afalqi@hotmail.com

برنامج البدر للفنادق

برنامج اداري ومحاسبي و خدمي و سنترال

afalqi@hotmail.com

#2

هل المشكلة واضحة ام لا

برنامج البدر للفنادق

برنامج اداري ومحاسبي و خدمي و سنترال

afalqi@hotmail.com

#3

السلام عليكم ...

انا فاهم مشكلتك يا سيدي الفاضل و اديك الحل إن شاء الله

خليك معايا ... عارف انتا ازاي تنقل الـParameters او الـVariables بين الفورمز ؟... الموضوع ده عمللي قلق من كام يوم بس حليتو ... المهم

Dim br As String = ComboBox1.SelectedValue.ToString

Dim frm As Form2 = New Form2(br)

Me.Visible = False

frm.Visible = True

-هوا مينفعش اجيب الكود على الشمال ؟!!!.. ما علينا -

اول سطر بياخد قيمه من الكومبوبوكس علشان ينقلها على فورم تانيه -Form2-

لما تعوز ترجع من Form2 لـ Form1

Dim frm As Form1 = New Form1

me.visible = true .... اللي هوا في الحاله دي فورم 2

frm.Visible = True

إن شاء الله يكون الكلام ده مفيد ..

تحياتي

تم تعديل هذه المشاركة بواسطة Amjad Obay في 29 مارس 2007 في 14:57

#4
alimf كتب:
لذلك عملت مثال مرفق للتوضيح المشكلة هيه

هو فين ؟

alimf كتب:
هل المشكلة واضحة ام لا

لأ

تم تعديل هذه المشاركة بواسطة msayed2004 في 29 مارس 2007 في 14:58

#6

اسف جدا مع اني ارسلت الملف

test_open_form.rar

برنامج البدر للفنادق

برنامج اداري ومحاسبي و خدمي و سنترال

afalqi@hotmail.com

#7

الأخ الفاضل ...

النموذج (Form) المسمى (sersh) أستخدم الكود:

Public ParentNameForm As formname

Private Sub Command1_Click()
	ParentNameForm.Text1.Text = Text1.Text
	ParentNameForm.Text2.Text = Text2.Text
	Unload Me
End Sub

و النموذج (Form) المسمى (formname) فى الحدث (Command1_Click) أستخدم الكود:

Private Sub Command1_Click()
	Dim frmSearch As New sersh

	Set frmSearch.ParentNameForm = Me
	frmSearch.Show
End Sub

وان شاء الله سيعمل معك

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#8

الف الف شكر على التعاون واتمن لك التوفيق اخ Eng. Usama El-Mokadem

برنامج البدر للفنادق

برنامج اداري ومحاسبي و خدمي و سنترال

afalqi@hotmail.com

هذا الموضوع مغلق.

مواضيع مشابهة