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