ماذا تعرف عن الMdi Form

مشكور على الكود طيب ابغا اغلق جميع الفورمات ما عدا الرئيسي و فورم Form1 مثلا ما هو الكود

جرب الكود ده

On Error Resume Next
Dim Form As Form
For Each Form In Forms
	If Form.MDIChild = True And Form.Name <> "Form1" Then
		Unload Form
	End If
Next
Set Form = Nothing

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

جاري التجربه علي كود

msayed2004

وده بتاع الصديق

msayed2004

طبعا ده تلاشي عيب الكود السابق

EX.rar

طيب يا اخي اين اكتب اسم الفورم حقتي؟

On Error Resume Next	'<- Required

Dim Frm As Form

For Each Frm In Forms
   If Frm.Caption <> "عنوان الفورم التي لا تريد ان تغلقها" Then
	Frm.CloseMe
	End If
Next

لم ينفع الكود

مع العلم ان اسم الشاشة الرئيسية Main

جرب المرفك

MainMdiForm.rar

مشكور اخي و لقد اشتغل مزبوط

ولكن عندي سؤال ثاني ايضا ( اعرف اني ازعجتكم بالاسئلة بس تحملوني )

الحين الفورم الرئيسي اذا كانت مفتوحة فيه فورمات اخرى و ضغطت على الاكس حق الخروج الي فوق رح يقفل جميع الفورمات و يطلع فانا ابغاه يساله اذا متاكد ولا لا رح احط هذا الكود

اقتباس

Private Sub MDIForm_Unload(Cancel As Integer)

Dim Answer As Integer

Answer = MsgBox("Are you sure you want to exit?", vbExclamation + vbYesNo, "Exit")

If Answer = vbNo Then Cancel = -1

If Answer = vbYes Then End

End Sub

صح و معنا اذا ضغطت على زر الخروج الاكس الي فوق يسال هل انت متاكد اذا اخترت لا لا يخرج و اذا اخترت نعم يخرج

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

ما الحل في مثل هذي المشكلة و شكرا

ممكن تاخد ده حل مبدئيي

Dim Answer As Integer
Answer = MsgBox("Are you sure you want to exit?", vbExclamation + vbYesNo, "Exit")
If Answer = vbNo Then Form2.Show: Cancel = -1
If Answer = vbYes Then End

طيب يا اخي اذا كان فاتح اكثر من واحد كيف رح يسير الكود ما رح يزبط صح ؟

اتمنى من احد الاخوان الي عندهم الحال المساعدة العاجلة

مشكووووور معلومة جديدة :) كنت دائما استخدم ال Toolbar ولم اكن احب التعامل معه :D

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

اقتباس

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

الميد فورم اذا اريد المستخدم عند الضغط على X حق الخروج يسأله هل انت متاكد من الخروج و سوف اضع الكود التالي صح

Private Sub MDIForm_Unload(Cancel As Integer)
Dim Answer As Integer
Answer = MsgBox("Are you sure you want to exit?", vbExclamation + vbYesNo, "Exit")
If Answer = vbNo Then Cancel = -1
If Answer = vbYes Then End
End Sub

معنا اذا ضغطت على الاكس الي فوق يسأل المستخدم هل انت متاكد من الخروج اذا اختار لا لا يخرج من البرنامج و اذا اختار نعم يخرج من البرنامج

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

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

ما الحل في مثل هذي المشكلة و شكرا

جرب تحطه فى حدث الـ Query_Unload و الله أعلم ( الوقت ضيق و لا أستطيع التجربة.)

اقتباس

جرب تحطه فى حدث الـ Query_Unload و الله أعلم ( الوقت ضيق و لا أستطيع التجربة.)

نجحت التجربة الان يعمل يشكل سليم

طب كويس اهو محمد حلها

طبعا هو خد المركز التاني من شوية يلا نأر عليه

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

طيب ان شاء الله نشوف ابداعاتك في الاحداث

و مشكور على المساعدة

ماشاء الله عليكو موضوع مفيد حقا

بس مبتدأ جدا

بارك الله فيكم

اولاً اقرأ الموضوع جيداً

ثانيا الكلمة الطيبة صدقة

او انا قلت ايه

زعلك

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

داخل الموضوع الكثير من الحيل الجديدة يمكن انت نفسك اول مرة تسمع عنها

فهو ليس مبتدئ جداً كما قلت فالكثير من المحترفين لا يعرفون استخدام الميدي فورم

نعم

يبفى غير محترف طبعا