موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ كيفية القيام باغلاق ال forms المختلفة

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:18 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي كيفية القيام باغلاق ال forms المختلفة

كود:
كود : Public Sub UnloadAllForms() Dim oFrm As Form For Each oFrm In Forms Unload oFrm Next End Sub ولاغلاق الجميع مثلاً ما عدا الفورم ال Active حالياً نقو بعمل متغير يحتوي على الفورم النشط حالياً وقبل الاغلاق يتم التأكد منه ، حيث نقوم بعمل تغيير في قيمة متغير كل حدث Form_Activate : كود : Private Sub Form_Activate() 'Form_Activate is a logical place to do this Dim oFrm As Form For Each oFrm In Forms if oFrm.Name <> me.Name and Not _ (TypeOf oFrm Is MDIForm) then Unload oFrm Next End Sub وفي الحدث الخاص بالاغلاق نقوم بقراءة قيمة المتغير واغلاق ما عداه من الفورمات : كود : dim oFrm as Form for each oFrm in Forms if oFrm.Name <> FormToStay and Not _ (TypeOf oFrm Is MDIForm) then unload oFrm next
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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