Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
128
Assunto : Visual Basic
Titulo: Fazendo o título do form piscar

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Um recurso interessante para chamar a atenção do usuário é piscar o título do form.

Para conseguirmos esse efeito precisamos utilizar a função da API chamada FlashWindow. Essa função da api tem 2 parâmetros : o handle da janela e um valor inteiro que identifica que mudança será feita. Se for 0 a janela voltará ao estado original, qualquer valor diferente fará com que ela inverta o estado atual entre ativa/inativa.

Veja a declaração da função :

Private Declare Function FlashWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bInvert As Long) As Long

O valor de retorno desta função identifica se a janela estava ativa ou inativa anteriormente. 0 estava ativa, caso contrário estava inativa.

Podemos fazer a janela piscar no código de um botão. Veja :

Private Sub Command1_Click()
Dim result As integer, a As Double
result = FlashWindow(Form1.hwnd, 1)
For a = 1 To 1000000
Next
result = FlashWindow(Form1.hwnd, 1)
End Sub

Observe que temos que chamar a função duas vezes para causar o efeito de uma piscada e precisamos fazer um intervalo entre a 1a e a 2a chamada para que o efeito seja visível.

Outra possibilidade é chamar a função FlashWindow de dentro de um timer.

É interessante observar o o efeito da flashwindow é visto mesmo que a janela esteja minimizada. Assim sendo poderia ser usado um timer para que a piscada fosse contínua até que a janela ganhasse o foco.



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 11/27/2017 6:59:00 PM
nome: EKWBTGgikEfzts
email: jimosanil0c@hotmail.com
comentário:
KHfaQe http://www.LnAJ7K8QSpfMO2wQ8gO.com

data: 1/31/2017 10:56:00 PM
nome: ObUbUYLrlkHBY
email: derby451@hotmail.com
comentário:
JtG80G http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/31/2017 2:25:00 PM
nome: sKhOUikCnKieaXq
email: derby451@hotmail.com
comentário:
KgUChC http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 9:55:00 PM
nome: AmNpBCYFWosyvGaRLAs
email: derby451@hotmail.com
comentário:
ySA8zf http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 8:54:00 PM
nome: qnDfejuKjcBwlxk
email: jogcbfn@hotmail.com
comentário:
SOVL73 http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br