[allobaed]

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

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

[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 


بالتوفيق .

[allobaed]

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

[AL_BRNS]

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

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

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

[allobaed]

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

[sendbad100]

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

[allobaed]

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

[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 


بالتوفيق .

[أبو عبدالله الحلواني]

(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

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