[Microformt]

بسم الله الرحمن الرحيم

الاخوه الكرام

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

 هل يوجد كود يمنع تحمد البرنامج اثنا العمل ؟

نامل من الله المساعده والله يحفظكم ويرعاكم

[Najy Ibraheem]

السلام عليكم...

إذا كان التجميد يحدث أثناء الحلقات (For أو While مثلاً)  فاستعمل الدالة DoEvent ضمن الحلقة (مثلاً قبل نهايتها مباشرةً). الدالة DoEvents تسمح للنظام بمقاطعة الحلقة مؤقتاً لتسمح للبرنامج بمعالجة رسائل النظام، ثم إكمال الحلقة.

كود :

For I = 0 To 100
   ' ....
   ' ....
   ' ....
   DoEvents
Next

Do While
   ' ....
   ' ....
   ' ....
   DoEvents
Loop

نرجو الاستفادة و السلام.

[Ahmed_Mansoor]

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

أهلا بك أخي الكريم ، إضافة لما ذكره أستاذنا القدير ناجي إبراهيم بخصوص إذا كان التجمد بسبب الحلقات التكراريه ، فمن الممكن وجود كود معين كإستدعاء أو إستخدام دوال الـ API أو إستخدام دوال من ملف مكتبة خارجيه يسبب عملها تجمد البرنامج ولحل هذه المشكله في بإستخدام الــ Threading بحيث تنشئ Thread تنفذ الكود بشكل مستقل عن الفورم مما لايسبب تجمد الفورم الذي منه ينفذ الكود ولمعرفة المزيد حول الـ Threading في الفيجول بيسك٦ وضعت مثال على ذلك في قسم "أمثلة ومشاريع vb6.0" يمكنك الإطلاع عليه لمعرفة الطريقة أو إرفاق مثال يوضح مشكلة التجمد ومكانها ليتم التعديل عليه .