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