الدالة DoEvents

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ملاحظة: يتم تعطيل الداله اسلوب الكائن او الخاصيه هو موضح في هذا الموضوع اذا Microsoft Jet Expression Service قيد التشغيل في وضع الحمايه، الذي يمنع تقييم التعبيرات قد تكون غير امنه. ل# مزيد من المعلومات حول وضع الحمايه، ابحث عن "وضع الحمايه" في "تعليمات".

تؤدي الي التنفيذ ل# كي يتمكن نظام التشغيل يمكنك معالجه احداث اخري.

بناء الجملة

الداله DoEvents ( )

ملاحظات

ترجع الداله DoEvents عدد صحيح يمثل عدد النماذج المفتوحه في اصدارات مستقل Microsoft Visual Basic، مثل Visual Basic، Professional Edition. ترجع الداله DoEvents صفر في كافه التطبيقات الاخري.

تمرير DoEvents التحكم الي نظام التشغيل. يتم ارجاع التحكم بعد انتهاء معالجه الاحداث الموجوده في قائمه انتظار نظام التشغيل و# تم ارسالها كافه مفاتيح في قائمه انتظار SendKeys .

الداله DoEvents مفيدا جدا ل# اشياء بسيطه مثل السماح ل# مستخدم ل# الغاء عمليه بعد تشغيلها، علي سبيل المثال ب# بحث عن ملف. ل# اجراء عمليات طويله، مما ينتج عن ل# المعالج افضل تتم من خلال استخدام مؤقت او تفويض المهمه الي مكون ActiveX EXE. في الحاله الثانيه، يمكنك متابعه المهمه مستقله تماما التطبيق الخاص بك، و# نظام التشغيل تتولي عمليه مهام متعدده و# تقسيم الوقت.

اي وقت مؤقتا العائد ل# المعالج اثناء اجراء حدث، تاكد من الإجراء لا يتم تنفيذ مره اخري من جزء مختلف من التعليمات البرمجيه الخاصه بك قبل ارجاع الاستدعاء الاول؛ يؤدي ذلك نتائج غير متوقعه. ب# الاضافه الي ذلك، لا تستخدم DoEvents اذا احتمال تفاعل تطبيقات اخري ب# استخدام الاجراء الخاص بك ب# طرق غير متوقعه اثناء وقت قمت فيه ب# تشغيل عنصر التحكم.

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في Visual Basic for Applications (VBA) الوحده النمطيه. ل# الحصول علي مزيد من المعلومات حول العمل ب# استخدام VBA، حدد مرجع المطور في القائمه المنسدله الموجود ب# جانب بحث و# ادخل شروط واحد او اكثر في مربع البحث.

يستخدم هذا المثال الداله DoEvents التسبب في تنفيذ العائد ل# نظام التشغيل مره واحده كل تكرارات 1000 من تنفيذ حلقه مستمره. الداله DoEvents الرقم ل# فتح نماذج Visual Basic، و# لكن فقط عندما يكون التطبيق المضيف Visual Basic.

' Create a variable to hold number of 
' Visual Basic forms loaded and visible.
Dim I, OpenForms
For I = 1 To 150000 ' Start loop.
If I Mod 1000 = 0 Then ' If loop has repeated
' 1000 times.
OpenForms = DoEvents ' Yield to operating system.
End If
Next I ' Increment loop counter.

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×