[RISOLTO] Scritta scorrevole

[vuott]

Ho mutuato da un esempio per VB6 questo breve codice per realizzare una scritta scorrevole:

Codice: gambas [Seleziona]

Titolo As String

Public Sub Button1_Click()

  Titolo = String(30, " ") & "Questa e' una stringa scorrevole"

  Timer1.Enabled = True

End


Public Sub Timer1_Timer()

  Titolo = Mid(Titolo, 2) & Left(Titolo, 1)

  TextBox1.Text = Titolo

End

Potete proporre qualche altra modalità (magari anche più breve e veloce) per ottenere il medesimo risultato ?

[Ceskho]

Ho mutuato da un esempio per VB6 questo breve codice per realizzare una scritta scorrevole:

Codice: [Seleziona]

Titolo As String

Public Sub Button1_Click()
Titolo = String(30, " ") & "Questa e' una stringa scorrevole"
Timer1.Enabled = True
End Sub

Public Sub Timer1_Timer()
Titolo = Mid(Titolo, 2) & Left(Titolo, 1)
TextBox1.Text = Titolo
End Sub

Potete proporre qualche altra modalità (magari anche più breve e veloce) per ottenere il medesimo risultato ?

Non mi stancherò mai di dire che la ricerca è il primo passo quando si vuole conversare su un forum. Se effettui la ricerca vedrai che l'argomento è stato trattato molto bene....

[vuott]

Se effettui la ricerca vedrai che l'argomento è stato trattato molto bene....

e va be'... ma, magari, qualcuno ha qualche altra soluzione e non l'ha inserita nel Forum.
La mia è. forse, più una sollecitazione.

[Ceskho]

Se effettui la ricerca vedrai che l'argomento è stato trattato molto bene....

e va be'... ma, magari, qualcuno ha qualche altra soluzione e non l'ha inserita nel Forum.
La mia è. forse, più una sollecitazione.

Se la tua vuole essere una sollecitazione allora vai nel post che era già aperto e sollecita lì senza disperdere eventuali soluzioni in 1000 post tutti sullo stesso argomento.

[vuott]

Rinvio alla pagina della WIKI:
http://www.gambas-it.org/wiki/index.php/Scritta_scorrevole