عضو جديد: من فضلكم كيف يمكن إستدعاء form بواسطة زر موجود .......

لو انتا بتشتغل باصدار قبل 2005 يبقا اشتغل بالكود ده ...

'طبعا نضع الكود في زر في فورمة 2

Dim frm1 as new form1

frm1.show

اما لو انتا شغال باصدار2005 استعمل الكود التالي :

'طبعا نضع الكود في زر في فورمة 2

Form1.show

إقرأ السؤال جيدا أخي

momo6 كتب:

عضو جديد: من فضلكم كيف يمكن إستدعاء form 1 بواسطة زر موجود في form2 آخر علما أن كلا الفورمين أبناء ل form رئيسي

ولا أريد أن يعلا أحد الفورمين على الآخر

ما الاصدار اللذى تعمل عليه

وما المقصود بان لا يعلا أحد الفورمين على الآخر لانك كدة هيكون عندك 3 فورم مفتوحين فهل لما هتفتح فورم 2 هيكون فورم الرئيسي مفتوح ولما تفتح فورم 1 هيكون فورم 2 مفتوح ولا ايه

لطفا اوضح السؤال

تحياتى

كلا الفورمين مفتوحين أو واحد على الأقل مع الفورم الرئيسي و الإنتقال بين الفورمين الإبنين بواسطة الأزرار الموجودة عليهما

بس ياسيدى لا عاوز تخفى الفورم تكتب

Me.Hide

ولو عاوز تحضر الفورم

Form?.show

ولا انتا تقصد شئ تانى

انتا تقصد مثلا الفورم تكون MDI

مثل ماقالو الشباب

ياخي

تظغط على زر الامر(command) الى في الفورم 2 ثم تكتب الكود هذا

form1.show	 'كذا انت تستدعي الفورم الاول

واذا هذا مو هو الى انت تبغه فالخلل في سؤالك اعتقد

momo6 كتب:

كلا الفورمين مفتوحين أو واحد على الأقل مع الفورم الرئيسي و الإنتقال بين الفورمين الإبنين بواسطة الأزرار الموجودة عليهما

السلام عليكم

مرحبا

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

أكتب هذا الكود فى الفورم 1 والفورم 2 مع مراعاة تغيير أسماء الفورم كما يلى

فى فورم 1 أكتب الكود ده تحت ال Public Class Form1

	Private Shared FormSimulator As form1
	Private Shared InitializingSimulator As Boolean
	Public Shared Property Simulator() As form1
		Get
			If FormSimulator Is Nothing OrElse FormSimulator.IsDisposed Then
				InitializingSimulator = True
				FormSimulator = New form1
				InitializingSimulator = False
			End If
			Simulator = FormSimulator
		End Get
		Set(ByVal Value As form1)
			FormSimulator = Value
		End Set
	End Property

فى فورم 2 أكتب الكود ده تحت ال Public Class Form2

 Private Shared FormSimulator As form2
	Private Shared InitializingSimulator As Boolean
	Public Shared Property Simulator() As form2
		Get
			If FormSimulator Is Nothing OrElse FormSimulator.IsDisposed Then
				InitializingSimulator = True
				FormSimulator = New form2
				InitializingSimulator = False
			End If
			Simulator = FormSimulator
		End Get
		Set(ByVal Value As form2)
			FormSimulator = Value
		End Set
	End Property

واذا ارت ان تفتح اى فورمة اخرى من الفورمة الحاضنة(MDiParent) أكتب الكود مع مراعاة اذا كانت اى فورمة أخرى فى المشروع مفتوحة أم لا

  If form2.Simulator.Visible = True Then form2.Simulator.Close()
form1.Simulator.MdiParent = Me
 form1.Simulator.Visible = True

ومن اى مكان فى المشروع إذا أردت ان تفتح أى فورمة ماعدا الفورمة الحاضنة وتغلق الاخرى أكتب

مثلا : كفتح فورم 1 وغلق فورم 2

 If form2.Simulator.Visible = True Then form2.Simulator.Close()
 form1.Simulator.Visible = True

واذا اردت ان تفتح اى فورمة مع ترك الفورمة المفتوحة مفتوحة

كمثال: انت فاتح فورم 2 وعايز تفتح منها فورم 3 وتظل فورم 2 مفتوحة

 form1.Simulator.Visible = True

بالتوفيق

تحياتى