[VB6] Realizzare un testo scorrevole

[Stefano1984Mn]

Ciao volevo chiedere se era possibile fare qualcosa che potesse far scorrere una riga di testo

[LMondi]

Ciao Stefano1984Mn,
il testo deve scorrere una sola volta, o viceversa deve continuare a scorrere?

[Stefano1984Mn]

Si vorrei che continuassa a scorrere tipi i cartelloni eletronici publicitari.
La mia idea era di fare un ciclo con il campo text e di cambiargli nel tempo la sua Left(cioè la sua posizione) però non mi sembra una grande idea e allora chiedevo se cera qualcosa di piu bello

Grazie

[LMondi]

Prova il seguente codice :

Dim sTesto As String, btStart As Byte
Private Sub Form_Load()
sTesto = "Prova testo scorrevole in una Lbl"
btStart = 1
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = Right(Striscia, Len(sTesto) - btStart) + Left(sTesto, btStart)
    btStart = btStart + 1
    If btStart > Len(sTesto) Then btStart = 1
End Sub

[LMondi]

Scusa, mi sono accorto di un'errore, riposto tutto:

Dim sTesto As String, btStart As Byte
Private Sub Form_Load()
sTesto = "Prova testo scorrevole in una Lbl"
btStart = 1
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = Right(sTesto, Len(sTesto) - btStart) + Left(sTesto, btStart)
    btStart = btStart + 1
    If btStart > Len(sTesto) Then btStart = 1
End Sub

Con il codice precedente il testo andava a scatti, così funziona.

[Stefano1984Mn]

Non funziona
forse sbaglio qualcosa io ma non so cosa
cosè va variabile striscia nella Right?

[Stefano1984Mn]

Azz che errore mi sono dimenticato di dargli il Timer1.Interval
Grazie adesso provo a modificarlo per provare a farla scorrere
ciao e grazie ancora