منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية (/showthread.php?tid=18959)

اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - allobaed - 26-01-17

الاخوة الكرام
السلام عليكم 
لدي الكود التالي احاول به ان اغلق جميع الشاشات في المشروع الا الشاشة الرئيسية  السبب ( ارجو الانتباه)
انني اريد عندما اغلق شاشة و فتح شاشة اخرى  يتم الاغلاق كل الشاشة المفتوحة سابقا بقاء الشاشة الرئيسية و الشاشة الفتوحة اخيرا 

فهل ينفع الكود التالي 
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
و لكل مني جزيل الشكر

RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - AL_BRNS - 26-01-17

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

جرب التالي

PHP كود :
Private Sub Command1_Click()
Dim F As Form
For Each F In Forms
If Not F.Name = "Form1" Then Unload F
Next
Form3.Show
End Sub 


بالتوفيق .


RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - allobaed - 26-01-17

بوركت على الرد و جزاك الله خيرا
اجرب و ارد
بس سؤال هل تقصد بـ form3 الشاشة الرئيسية

RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - AL_BRNS - 26-01-17

باعتبار ان "Form1" هو الشاشة الرئيسية

و "Form3" هو الفورم المراد فتحه .

بالتوفيق اخي .

RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - allobaed - 26-01-17

جزيت خيرا اخي AL_BRNS
الكود شغال تمام .
لكن في حالة وجود main فورم يغلق البرنامج بالكامل لا ادري ما السبب
او بمعنى اخر كيف اجعله يعرف الفورم الرئيسية التي باسم frmMain  فلا يغلقها و يغلق بقية القورم

RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - sendbad100 - 26-01-17

جرب غيرت غير اسم Form1 في الكود الى FormMain
انشاء الله يضبط معك

RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - allobaed - 26-01-17

بوركت اخي sendbad100
ابشرك ضبط الكود السابق و كانت المشكلة عندي في حدث unload
الشكر الجزيل لاخينا ...AL_BRNS

RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - sherf - 20-04-20

(26-01-17, 04:24 AM)AL_BRNS كتب : وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Sub Command1_Click()
Dim F As Form
For Each F In Forms
If Not F.Name = "Form1" Then Unload F
Next
Form3.Show
End Sub 


بالتوفيق .


RE: اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية - أبو عبدالله الحلواني - 06-03-21

(20-04-20, 10:41 PM)sherf كتب :
(26-01-17, 04:24 AM)AL_BRNS كتب : وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Sub Command1_Click()
Dim F As Form
For Each F In Forms
If Not F.Name = "Form1" Then Unload F
Next
Form3.Show
End Sub 


بالتوفيق .
لماذا لم يعمل هذا الكود معي يظهر عندي الخطأ علي كلمة  Forms في هذا السطر

كود :
For Each F In Forms
وجزاكم الله خيرا