اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية
#1
الاخوة الكرام
السلام عليكم 
لدي الكود التالي احاول به ان اغلق جميع الشاشات في المشروع الا الشاشة الرئيسية  السبب ( ارجو الانتباه)
انني اريد عندما اغلق شاشة و فتح شاشة اخرى  يتم الاغلاق كل الشاشة المفتوحة سابقا بقاء الشاشة الرئيسية و الشاشة الفتوحة اخيرا 

فهل ينفع الكود التالي 
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
و لكل مني جزيل الشكر
الرد
تم الشكر بواسطة: السيد الغالي , السيد الغالي
#2
وعليكم السلام ورحمة الله وبركاته

جرب التالي

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 


بالتوفيق .
الرد
#3
بوركت على الرد و جزاك الله خيرا
اجرب و ارد
بس سؤال هل تقصد بـ form3 الشاشة الرئيسية
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#4
باعتبار ان "Form1" هو الشاشة الرئيسية

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

بالتوفيق اخي .
الرد
تم الشكر بواسطة: allobaed , Ahmed_Mansoor
#5
جزيت خيرا اخي AL_BRNS
الكود شغال تمام .
لكن في حالة وجود main فورم يغلق البرنامج بالكامل لا ادري ما السبب
او بمعنى اخر كيف اجعله يعرف الفورم الرئيسية التي باسم frmMain  فلا يغلقها و يغلق بقية القورم
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#6
جرب غيرت غير اسم Form1 في الكود الى FormMain
انشاء الله يضبط معك
  Heart   الرجاء البحث قبل وضع السؤال  Heart

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [vb6.0] كيف الغي زر التكبير في الفورم ابوثامر الحامد 4 57 13-08-18, 06:20 AM
آخر رد: elgokr
  [سؤال] اريد نصائح و اقتراحات migooo 1 28 03-08-18, 09:49 AM
آخر رد: حريف برمجة
  اريد ادراج ProgressBar1 wolf1120 6 246 03-08-18, 07:34 AM
آخر رد: Ahmed_Mansoor
  اريد حل لمشكلة فى كود بحث مع datagrid hum100 3 173 31-05-18, 01:56 PM
آخر رد: hum100
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 133 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 201 23-03-18, 06:26 AM
آخر رد: Microformt
  السلام عليكم اريد مثال اعمل كلمة سر لبرنامجي واعدلها في الاكسس بارك الله فيكم محمد جبريل 5 288 11-03-18, 10:48 AM
آخر رد: محمد جبريل
  السلام عليكم اريد كود عدم نسخ البرنامج ضروري يا اخوان بارك الله فيكم محمد جبريل 0 132 08-03-18, 08:35 PM
آخر رد: محمد جبريل
  اريد كود يحفظ الفورم ك صورة ضروري يا اخوان محمد جبريل 6 237 07-03-18, 11:34 AM
آخر رد: محمد جبريل
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 96 19-02-18, 11:23 PM
آخر رد: wolf1120

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم