طريقة هز الفورم

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

طريقة هز الفورم

مُساهمة من طرف Coptic_Programmer في الجمعة يوليو 03, 2009 9:35 am

أضف الكود التالي في قسم التصريحات General

Const FLASHW_STOP = 0
Const FLASHW_CAPTION = &H1
Const FLASHW_TRAY = &H2
Const FLASHW_ALL = (FLASHW_CAPTION Or FLASHW_TRAY)
Const FLASHW_TIMER = &H4
Const FLASHW_TIMERNOFG = &HC
Private Type FLASHWINFO
cbSize As Long
hwnd As Long
dwFlags As Long
uCount As Long
dwTimeout As Long
End Type
Private Declare Function FlashWindowEx Lib 'user32' (pfwi As FLASHWINFO) As Boolean

أضف الكود التالي إلى حدث Load للفورم

Dim FlashInfo As FLASHWINFO

FlashInfo.cbSize = Len(FlashInfo)

FlashInfo.dwFlags = FLASHW_ALL Or FLASHW_TIMER

FlashInfo.dwTimeout = 0

FlashInfo.hwnd = Me.hwnd

FlashInfo.uCount = 0
FlashWindowEx FlashInfo

أضف أداة التوقيت Timer وغير خاصية Interval إلى 50 مثلاً وأكتب الكود التالي:

Me.Visible = Not Me.Visible

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى