|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Como fazer um texto rolar
|
 |
|
|
|
Postada em 29/3/2002 por MAX Softs
dave.mlg@ig.com.br
Em um form, insira uma figura e um timer, simplesmente, copie-e-cole esse código:
Public Function ShowMessage()
Static MsgPtr As Integer
Static Mytext As String
If Len(Mytext) = 0 Then
MsgPtr = 1
Mytext = "http://www.maxsofts.hpg.com.br - " 'Seu texto
End If
Picture1.Cls
Picture1.Print Mid$(Mytext, MsgPtr); Mytext;
' Isso pode ser usado com outros objetos que aceitem
'CLS e PRINT
MsgPtr = MsgPtr + 1
If MsgPtr > Len(Mytext) Then
MsgPtr = 1
End If
End Function
Private Sub Timer1_Timer()
ShowMessage
End Sub
|
|
|
|
|
