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

كيف أحدد نموذج الابن المفتوح بين بقية النماذج في Parent Form

مغلق
بدأه فلسطيننا في 10 ديسمبر 2006 · 6 رد · 828 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

-------------------

اخواني الأعزاء انا اعمل حاليا في برنامج والبرنامج يحتوي العديد من Froms ما أريده هو فحص اذا كان الفورم اذا كان الفورم مفتوح ام لا .....

فأذا كان مفتوح يعطيني رسالة تخبرني بان الفورم مفتوح ..... واذا لا ييقوم بفتح الفورم الجديد واغلاق الفرم القديم ....

طبعا الفورمات التي اتحدث عنها ليس MDI بل فورمات عادية يعني يوجد عندي فورم رئيسي FrmMain هو MDI وهذا الفورم يوجد به قائمة من خلالها اعرض الفورمات الأخرى ....

انا حاولت واليكم ما توصلت اليه 

 Private Function CheckIfOpen(ByVal FrmName As String) As Boolean
		Dim Frm As Form
		For Each Frm In Me.MdiChildren
			If Frm.Name = FrmName Then
				Frm.Focus()
				Return True
				Exit Function
			End If
		Next
		Return False
	End Function

واذا قمت باختيار اي عنصر من القائمة مثلا قمت بعرض قائمة الموظفين نضع في حدث الخاص به هذا الكود 

Try
			If CheckIfOpen("FrmEmployees") = False Then
				Dim FrmEmployees As FrmEmployees = New FrmEmployees
				FrmEmployees.MdiParent = Me
				PnlMain.Controls.Add(FrmEmployees)
				FrmEmployees.Show()
				PnlMain.Dock = DockStyle.Fill
			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

ارجو الأفادة

والسلام خير ختاام

تم تعديل هذه المشاركة بواسطة الغملاسي في 13 ديسمبر 2006 في 13:08

رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ

#2

ارجو الافادة .....

رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ

#3

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

Private Function OpenedForm(ByVal frm As String) As Boolean
		OpenedForm = False
		For Each f As Form In Me.MdiChildren
			If UCase(f.Name) = UCase(frm) Then
				OpenedForm = True
				f.BringToFront()
				Exit For
			End If
		Next
	End Function

هذا كلاس ترسل له اسم الفورم راح يقلك اذا كانت مفتوحة او لا

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#4

السلام عليكم

-----------------

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

	f.BringToFront()

مشكوور وجزك الله كل خير

تم تعديل هذه المشاركة بواسطة فلسطيننا في 11 ديسمبر 2006 في 13:41

رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ

#5

السلام عليكم

------------

ما زلت أعاني من نفس المشكلة .....

يا ريت تيفودوني ....

يوجد مثال في المرفقات

MultiForms.zip

رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ

#6

السلام عليكم

اعمل كلاس عندك يكون مسئول عن فتح النوافذ واكتب الكود التالى 

	Private Shared mEmployees As FrmEmployees
	Property Employees() As FrmEmployees
		Get
			If mEmployees Is Nothing OrElse mEmployees.IsDisposed Then
				mEmployees = New FrmEmployees
			End If
			Return mEmployees
		End Get
		Set(ByVal Value As FrmEmployees)
			mEmployees = Value
		End Set
	End Property

وطريق الفتح تكون بالشكل التالى 

	  Dim objwin As New Classforms
		With objwin
			.Employees.MdiParent = Me
			.Employees.Show()
			.Employees.Activate()
		End With

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#7

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

--------------

عمل كلاس عندك يكون مسئول عن فتح النوافذ

ما بعرف اذا فهمت قصدك ولا كيف ..... لذلك ...ما فعلته انا جعلته في المرفقات هذه المرة .....

وجزاك الله كل خير على تجاوبك معي ....

MultiForms.zip

رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…