• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[vb6] Fazer o titulo da "form piscar"

1 mensagem neste tópico

Requisitos:

FlashWindow api

1 Form

1 Timer

Colocar o código abaixo na form.

'Chama a api FlashWindow que faz o titulo piscar
Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Form_Load()
    'Define o intervalo para 2 segundos = 2000 millisegundos
    Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
    Dim ReturnVal As Long
    ReturnVal = FlashWindow(Form1.hwnd, 1)
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora