|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Rolando um texto em um TextBox
|
 |
|
|
|
Postada em 13/12/2002 por Salgadinho
' Mode de Usar:
' 1) Cole o código abaixo no form
' 2) Adicione um TextBox e um Timer no Form
' 3) Defina a propriedade Interval = 100 do Timer
'''[CODE language=VB]
Dim Title As String
Private Sub Form_Load()
Title = String(30, " ") + "VBWEB o maior site para programadores de VB"
End Sub
Private Sub Timer1_Timer()
Title = Mid(Title, 2) & Left(Title, 1)
Text1.text = Title
End Sub
'''[/CODE]
|
|
|
|
|
