|
|
|
|
|
|
|
|
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
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
|
|
|
|
|
