التوقف المؤقت للبرنامج اثناء تنفيذ امر معين

هل جربت استعمال الأمر DoEvents؟

For Counter = 0 To 100000
Print "Hello World!"
DoEvents
Next

طبعاً هي تبطئ البرنامج بشكل كبير، لكن يمكنك تفادي المشكلة باستخدام دالة الـAPI وهي GetInputState، يمكنك استعمالها كالتالي:

If GetInputState Then DoEvents

طبعاً بعد التصريح عن الدالة، فهي تقوم بإرجاع قيمة مخالفة للصفر عند إجراء إدخال بالفأرة أو لوحة المفاتيح مثلاً.

أرجو أن يكون هذا ما تريده.

Abboodd كتب:

لكن يمكنك تفادي المشكلة باستخدام دالة الـAPI وهي GetInputState، يمكنك استعمالها كالتالي:

If GetInputState Then DoEvents

طبعاً بعد التصريح عن الدالة، فهي تقوم بإرجاع قيمة مخالفة للصفر عند إجراء إدخال بالفأرة أو لوحة المفاتيح مثلاً.

هذا ما اريدة لكن لا استطيع تطبيق GetInputState ؟؟!!!!

ممكن توضح اكثر ...

يجب التصريح عن الدالة قبل إستخدامها بكتابة :

Declare Function GetInputState Lib "user32" () As Long

تحيااااتي ,,