السلام عليكم أخي الكريم :
الان نتطرق لشفرة تجعل من نموذجك مشع و ذلك باستخدام تصريحات 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 أو اي رقم اخر )