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

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Label animada como BANNER vai e volta
Postada em 27/6/2007 por José Paraíso      Clique aqui para enviar email para o autor  dinamica.sistemas@netvga.com.br
No exemplo abaixo, supomos que a Label esteja invisível e você quer que ela apresente uma informação na tela de forma a chamar a atenção do usuário.
Obs: Nós sabemos que a maioria dos usuários são como robôs e não tem o hábito de lêr informações/mensagens importantes do programa.

Crie uma Label em formulario com nome Lblmsg, coloque um Obj. Timer1 no formulário e copie a Sub para dentro do mesmo.
Susbtitua [Obj] pelo Form1, Frame1, etc... e execute. Tchannnn

Private Sub Timer1_Timer()


Lblmsg.Visible = true

    Static Left_Right  As Boolean
    
    If Lblmsg.Left + Lblmsg.Width + 100 >= _
       [objeto].Width Then Left_Right = True
    
    If Lblmsg.Left <= 120 Then Left_Right = False
    
    If Left_Right Then
       Lblmsg.Left = Lblmsg.Left - 60
    Else
       Lblmsg.Left = Lblmsg.Left + 60
    End If

End Sub
 


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