|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Letreiro Digital
|
 |
|
|
|
Postada em 13/9/2003 por Gustavo
' Insira uma Label, um textBox e um Timer. Na propriedade Interval do Timer, defina como 250.
' No evento Timer do Timer
Private Sub Timer1_Timer()
Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) & Left(Label1.Caption, 1)
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) & Left(Text1.Text, 1)
End Sub
|
|
|
|
|
