عمل نموذج مشع

السلام عليكم أخي الكريم :

الان نتطرق لشفرة تجعل من نموذجك مشع و ذلك باستخدام تصريحات API

لماذا استعمل النموذج المشع ؟

* تستعمل النموذج المشع كأن تدل المستخدم لبرنامجك على حوار او لتلفت إنتباهه أو لتحذيره مثلا أو لاي

شيئ أخر انت تريده

Private Declare Function FlashWindow Lib "user32"

Alias "FlashWindow" (ByVal hWnd as long, ByVal bInvert as

long) as long

الشفرة :

ملاحظة مهمة : هذه الشفرة توضع في الحدث الخاص بالمؤقت TIMER

Dim nReturnValue as Integer

nReturnValue = FlashWindow(form1.hWnd, true)

مثال بسيط على استخدامهه :

إبدأ مشروع جديد صرح عن البرنامج بشفرة التصريح الموضحة أعلاه ثم أضف للنموذج مؤقت TIMER

( وذلك من نافذة أدوات التحكم ثم تضعها على النموذج ) ثم تنقر المؤقت لتفتح نافذة الشفرات و تضع الشفرة

الخاصة بهذا الحدث الموضحة أعلاه لكن لا تنسى أن تغير خاصية Interval الخاصة بالمؤقت ( و ذلك

بالنقر على المؤقت مرة و تذهب لنافذة الخصائص و تغير الخاصية المذكورة لاي رقم تريده مثلا 9 أو 10

أو اي رقم اخر )