الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]اعادة استفسار بخصوص اغلاق فورم وتحميل اخر

بدأه shadi77 في 3 فبراير 2009 · 6 رد · 626 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيفكم يا اساتزة

كنت قد طرحت استفسار سابق بخصوص طريقة اغلاق فورم واظهار فورم اخر . وكنتم قد افدتموني مأجورين ... لكن المشكلة التي واجهتني الحقيقة بنظري انا صعبة لكن عليكم سهلة ان شاء الله .. وهي ما يلي

الميدي لدي تحتوي على منيوبار وهو يجمع عدد كبير من الفورمز ! فلو كنت مثلا في فورم 6 واردت اخفاءه واظهار فورم 10 يجب ان يكون الكود الخاص بفورم10 داخل المنيوبار كما يلي

unload form6

form10.show

فلو كنت مثلا في فورم3 واردت اخفاءه واظهار فورم10 سيكون الكود الخاص بفورم10 داخل المنيو بار كما يلي

unload form6

unload form3

form10.show

بهذه الطريقة يكون كل فور يحتوي على 49 كود للانلود وكود واحد للشو!! وهي صعبة نوعا ما

فمن هنا بدأت حيرتي وهي

كتابة كود اظهار الفورم التالي سهل لكن كتابة كود اخفاء الفورم الحالي هي المشكلة ولا سيما هناك اكثر من 50 فورم مثلا في قائمة المنيوبار

جربت هذا الكود يعني زبط نوعا ما لكن غير مريح ويشعر المستخدم بتقطع في البرنامج فكلما ذهب المستخدم الى فورم انقطعت فورم الميدي وعاودت الظهور

unload me

form10.show

وبمعنى اخر ملخص لما تقدم

الميدي تحتوي منيو بار يجمع 50 فورم

اظهار الفورم التالي سهل لكن اخفاء الحالي كيف يكون؟؟

انا مش عارف شرحت المشكلة صح ولا لاء ولو كانت صح يمكن اكون استخدم طريقة خاطئة !!! وبالنهاية انا محتاااااااااااااار ودلوني

:tantrum:

وبس

دمتم سالمين

تم تعديل هذه المشاركة بواسطة shadi77 في 3 فبراير 2009 في 15:00

فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

#2

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

أخي الحبيب

قم بعمل موديل و ضع فيه دالة و سميها مثلا (clear)

و بداخلها قم بكتابة الاتي

unload form1

unload form2

....

إلى أن تنتهي من جميع الفورمات التي تريد اخفائها

ثم ارجع الى المينيوبار

عند بداية اختيار أحد الفورمات اكتب الاتي

call clear

form9.show

و هكذا

أتمنى أن أكون قد أفدتك

#3

صح الحكي ومنطقي

جاري التجربة

ولكن هل الدالة هكذا صحيحة؟

sub unloadforms ()

unload form1

unload form2

unload form3

unload form4

.

.

.

end sub

جاري التجرب شكرا لك

تم تعديل هذه المشاركة بواسطة shadi77 في 3 فبراير 2009 في 17:09

فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

#4

بصراحة كلامك غير واضح تماماً ، ولكن إذا كنت تريد إنهاء جميع الـForms باستثناء Form10 مثلاً وباستثناء MDIForm فيمكنك كتابة التالي:

  1.  
  2. Dim A As Form
  3. For Each A In Forms
  4. If A.Name <> MDIForm1.Name Then Unload A
  6. Form10.Show
  7.  

هل هذا ما تريده؟؟

      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#5
        
        

      
Abboodd كتب:
بصراحة كلامك غير واضح تماماً ، ولكن إذا كنت تريد إنهاء جميع الـForms باستثناء Form10 مثلاً وباستثناء MDIForm فيمكنك كتابة التالي:
  1.  Dim A As Form For Each A In Forms If A.Name <> MDIForm1.Name Then Unload A Next Form10.Show 
  2.  
  3.  

هل هذا ما تريده؟؟
جميل هذا الكود
اذن اضع الفورم المراد فتحه بالنهاية وبعد نكست
لكن سؤال اخير وقبل تجربة الكود اعلاه!! اين اضع الكود   :blush:

      
تم تعديل هذه المشاركة بواسطة shadi77 في 3 فبراير 2009 في 17:26

      

      
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

    

  

    
    

      
#6
        
        

      
أنت قل لي!!! :)
تضعه في المكان الذي تريد القيام بالعملية فيه، كما يمكنك وضعه في Module وجعله عملياً أكثر كالتالي:
  1.  
  2. Public Sub UnloadForms()
  3. Dim A As Form
  4. For Each A In Forms
  5. If A.Name <> MDIForm1.Name Then 
  6. Unload A
  8. End Sub
  9.  
  10.  
وعند استدعائه هكذا مثلاً:
  1.  
  2. UnloadForms
  3. Form10.Show
  4.  


      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#7
        
        

      
تسلم ايدك ياكبتن
هو ده الشغل الصح
 :rose:

      
      

      
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…