|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Barra de Título Piscando
|
 |
|
|
|
Postada em 13/3/2004 por Josefh Hennyere
'Coloque um controle Timer no form e cole este código
Option Explicit
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Declare Function GetCaretBlinkTime Lib "user32" () As Long
Private Sub Form_GotFocus()
Form1.Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = GetCaretBlinkTime()
Form2.Show
End Sub
Private Sub Timer1_Timer()
FlashWindow Form1.hwnd, 1
End Sub
'Josefh Hennyere
|
|
|
|
|
