نبض الفورم

من طرف Coptic_Programmer الجمعة يوليو 03, 2009 10:12 am

1 - اصنع فورم Form1 وضع فيه زر أمر Command1 وأدات التوقيت Timer1 وإنسخ مايلي الى الشيفرة

Option Explicit

Private Declare Function FlashWindow Lib 'user32' (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private mb_Flashing As Boolean

Private Sub Command1_Click()

mb_Flashing = Not mb_Flashing
Timer1.Enabled = mb_Flashing

If mb_Flashing = False Then
Call FlashWindow(Me.hwnd, 0)
End If

End Sub

Private Sub Timer1_Timer()

Call FlashWindow(Me.hwnd, 1)

End Sub