*فورم* عرض أمثلة متعددة من نموذج

في أعلى الوحدة النمطية لنموذج ضع السطر التالي :

Dim CollectForms As New Collection

ضع الكود التالي في حدث نقر زر أمر :

Dim frm As Form

Set frm = New [Form_اسم النموذج]

frm.Visible = True

CollectForms.Add frm

لاحظ أن اسم النموذج إذا احتوى على فراغات فيجب أن يسبق كلمة Form القوس المربع ثم كلمة Form ثم الشرطة السفلية ثم اسم النموذج ثم قوس الإغلاق إذا لم يحتوي اسم النموذج على فراغات فاكتبه مباشرة مثال :

Form_MyForm

وحتى لايحدث خطأ في الاسم فبعد كتابة New ستظهر قائمة اكتب حرف F ثم ابحث إلى الأسفل عن اسم النموذج مع ملاحظة أنه سيسبق اسمه كلمة Form .

وللجميع التحية