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

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Fazer um Text andar como um Banner
Postada em 11/2/2004 por Rochª            
Fazer um TextBox como um texto animado, podendo o mesmo ser utilizado como um banner de propaganda. Adicione os seguintes controles em seu formulário: um TextBox, um Timer, e dois CommandButton.

Copie e cole o texto abaixo no formulário e aperte a tecla F5.

'Esta variável do tipo texto, que irá armazenar a mensagem:
Dim title As String



Private Sub Command1_Click()
'Agora no evento Click do Botão Anima Texto Insira o seguinte código:
title = String(30, " ") + "Estou Andando!"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Command1.Caption = "Anima Texto"
Command2.Caption = "Sair"
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
'E no evento Timer do controle Timer1, o código abaixo:
      
title = Mid(title, 2) & Left(title, 1)
Text1 = title
End Sub
 


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