إستفسار عن :form Array,events

اقتباس

1- كيفية عمل form array , أى مثلما اعمل مصفوفة من الازرار او الtext boxes مثل:

text1(0) and text1(1) and so on

كيف اعمل مصفوفة من الفورم :form1(0) and form1(1) and so on

لا يمكنك إنشاء مصفوفة من النماذج هكذا !!!

لكن بأسلوب قليل من التحايل يمكنك صناعة كل شيء !!!

علي سبيل المثال ، يمكنك إستخدام أمر New Form لعرض النموذج أكثر من مرة ، أما لتمييز نموذج عن آخر يمكنك إستخدام الخاصية Tag تخزين قيمة بداخلها لا تتكرر Unique ، بحيث أن من خلالها يتم تمييز النماذج الأخري ، وإليك مثال سريع :

1- قم بإدراج الكود التالي في الوحدة النمطية Module :

Option Explicit
Public X As Long

Public Sub Main()
	X = 1
	Form1.Show
End Sub

مع مراعاة أن يكون إقلاع التطبيق علي أساس Sub Main وليس Object معين

2- قم بكتابة الكود التالي بداخل النموذج :

أولاً قم بإدراج 2 زر أمر ، ومن ثم إنسخ الكود التالي بداخلة :

Option Explicit

Private Sub Command1_Click()
	Dim frm As New Form1
	X = X + 1
	frm.Show
End Sub

Private Sub Command2_Click()
	Dim obj As Object
	Dim logFormNo As Long
	logFormNo = Val(InputBox("إدخل رقم النموذج", "إغلاق"))
	For Each obj In Forms
		If (Val(obj.Tag) = logFormNo) Then
			Unload obj
		End If
	Next
End Sub

Private Sub Form_Load()
	Me.Tag = X
	Me.Caption = "Form" & X
End Sub

وبعد ذلك نفذ البرنامج وحاول تنقر علي زر أمر Command1 أكثر من مرة حتي يعرض لك نفس النموذج أكثر من مرة ، وبعد ذلك أنقر علي زر أمر Command2 ليعرض لك InputBox أدخل فية رقم النموذج ( 1، 2، 3، .... الي آخرة ) ، وستجدة يقوم بالبحث الفوري علي النموذج وإغلاقة

اقتباس

2- كيف أجعل event معين (ينفجر) بعد انتهاه اجراء sub معين واى بعد كلمة end sub

اى يكون الحدث نفسه هو انتهاء الsub

أخي ، ممكن توضيح أكثر ، وتحدد هدفك بالضبط كي نتمكن من مساعدتك ؟؟؟

شكراً