USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página