تقييم الموضوع :
  • 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
انشاء الله يضبط معك
الرد
تم الشكر بواسطة: allobaed , allobaed , Ahmed_Mansoor , AL_BRNS , AL_BRNS
#7
بوركت اخي sendbad100
ابشرك ضبط الكود السابق و كانت المشكلة عندي في حدث unload
الشكر الجزيل لاخينا ...AL_BRNS
الرد
تم الشكر بواسطة: Ahmed_Mansoor , AL_BRNS , AL_BRNS
#8
(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 


بالتوفيق .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [سؤال] مساعده كيفية اضافة محتوى ملف نصي txt على المشروع؟ eapda 2 337 22-06-20, 03:52 PM
آخر رد: eapda
Question [vb6.0] هل هناك كود يمكن تكبير الفورم من خلال موشر الفاره بطريقة السحب في حال تم الغاء هذه Microformt 3 214 21-05-20, 03:39 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] لماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ Microformt 4 301 01-05-20, 04:18 AM
آخر رد: karmina2012
Question [vb6.0] هل في الامكن تغير لون شريط عنوان الفورم عن طريق البرمجة ؟؟ Microformt 1 243 20-04-20, 12:20 AM
آخر رد: سعود
  حل مشكلة تالف المشروع ahmed20 0 171 08-04-20, 04:31 PM
آخر رد: ahmed20
  [سؤال] عرض تقرير اكتف ريبورت في الفورم ناجح احمد 2 407 28-02-20, 04:29 PM
آخر رد: Ahmed_Mansoor
  حفظ الفورم بجميع مكوناته على شكل PDF hannileo 3 572 19-01-20, 05:32 AM
آخر رد: Ahmed_Mansoor
  اريد البحث في الكومبوبوكس بدلاله كومبوبوكس اخرى mhareek 8 797 14-01-20, 05:19 AM
آخر رد: Ahmed_Mansoor
  طريقة تغيير سكين على جميع الواجهات بضغطة زر Benmouha 2 441 01-01-20, 10:53 PM
آخر رد: Ahmed_Mansoor
  كيف يعمل البرنامج على جميع نسخ( الوندوز) خاصة الحديثة gonm64 4 472 16-12-19, 02:17 PM
آخر رد: gonm64

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


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