أسئلة في:الكائن Forms و DoEvents و For Each

[mohdabdu 1]

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

قرأت في كتاب "علم نفسك فيجوال بيسك 6 في 21 يوم" عن الكائن Forms وخصائصه وبعض الأكواد عليه ومن هذه الأكواد الموجودة في الكتاب كود يجعل جميع النوافذ

مخفية باستخدام الخاصية Visiable والكود هو

for i=0 to Forms.Count-1
		Forms(i).visiable=false
next i

المشكلة أن الفيجوال بيسك في جهازي لا يستطيع التعرف على هذا الكائن ويظهر خطأ عن استخدام هذا الكود ، فهل يوجد فعلا كائن اسمه Forms أو ماذا؟؟؟؟؟؟؟

---------------------------------------------------------------

ما معنى وما فائدة الأمر DoEvents ؟

---------------------------------------------------------------

كيف أستخدم التكرار For Each..... next

---------------------------------------------------------------

الله يوفقنا ويوفقكم لما يحبه ويرضاه

[Pharaonic_Guy 4]

DoEvents تستخدم لتخفيف استهلاك إجراء في برنامجك للبروسيسور .. وذلك بإعطاءه وقت 50 ميلي ثانية لتنفيذ عمليات أخري ..

For Each تستخدم لعمل تكرار داخل كائنات أو مجموعات أو مصفوفات ..

والخطأ في الكود الذي كتبته أنت كان في كلمة Visible حيث كتبتها أنت Visiable

وإذا أردت كتابة نفس وظيفة الكود باستخدام For Each فستكون كالتالي ..

Dim Frm As Form
 For Each Frm In VB.Forms
	 Frm.Visible = False
 Next

[mohdabdu 1]

مشكور أخوي Pharaonic_guy