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
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 ?
Se effettui la ricerca vedrai che l'argomento è stato trattato molto bene....
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.