الدالة DoEvents

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

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

تؤدي إلى التنفيذ لكي يتمكن نظام التشغيل من معالجة أحداث أخرى.

بناء الجملة

الداله DoEvents ( )

ملاحظات

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

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

تفيد الدالة DoEvents في معالجة الأشياء البسيطة مثل السماح لمستخدم بإلغاء عملية بعد تشغيلها، مثل البحث عن ملف. أما بالنسبة للعمليات التي تستغرق وقتًا طويلاً، يتحسن أداء المعالج بواسطة استخدام "ميقاتي" Timer أو تفويض المهمة إلى مكون 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، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

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

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

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

×