26-01-17, 03:46 AM
الاخوة الكرام
السلام عليكم
لدي الكود التالي احاول به ان اغلق جميع الشاشات في المشروع الا الشاشة الرئيسية السبب ( ارجو الانتباه)
انني اريد عندما اغلق شاشة و فتح شاشة اخرى يتم الاغلاق كل الشاشة المفتوحة سابقا بقاء الشاشة الرئيسية و الشاشة الفتوحة اخيرا
فهل ينفع الكود التالي
Private Function CloseAllForms()
On Error Resume Next: Err.Clear
Dim zControl As Control
For Each zControl In Controls
If TypeOf zControl Is MDIFomes Then zControl.Close = False
If TypeOf zControl Is Fomes Then zControl.Close = True
Next
End Function
و لكل مني جزيل الشكر
السلام عليكم
لدي الكود التالي احاول به ان اغلق جميع الشاشات في المشروع الا الشاشة الرئيسية السبب ( ارجو الانتباه)
انني اريد عندما اغلق شاشة و فتح شاشة اخرى يتم الاغلاق كل الشاشة المفتوحة سابقا بقاء الشاشة الرئيسية و الشاشة الفتوحة اخيرا
فهل ينفع الكود التالي
Private Function CloseAllForms()
On Error Resume Next: Err.Clear
Dim zControl As Control
For Each zControl In Controls
If TypeOf zControl Is MDIFomes Then zControl.Close = False
If TypeOf zControl Is Fomes Then zControl.Close = True
Next
End Function
و لكل مني جزيل الشكر