Differenze tra le versioni di "Scritta scorrevole"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
− | 1° esempio (prevede la presenza dell'oggetto speciale ''Timer''): | + | '''1°''' esempio (prevede la presenza dell'oggetto speciale ''Timer''): |
Titolo As String | Titolo As String | ||
Riga 24: | Riga 24: | ||
− | 2° esempio (Prevede la presenza dell'oggetto speciale ''Timer''): |[[#Note|1]]| | + | '''2°''' esempio (Prevede la presenza dell'oggetto speciale ''Timer''): |[[#Note|1]]| |
da_scorrere As String = "Questa stringa scorre" | da_scorrere As String = "Questa stringa scorre" | ||
Riga 52: | Riga 52: | ||
− | 3° esempio | + | '''3°''' esempio |
<BR>ingegnoso e simpatico esempio, del quale potete scaricare il sorgente qui: | <BR>ingegnoso e simpatico esempio, del quale potete scaricare il sorgente qui: | ||
[http://www.gambas-it.org/smf/index.php?action=dlattach;topic=1043.0;attach=609 txtscorrevole-0.0.1.tar.gz] |[[#Note|2]]| | [http://www.gambas-it.org/smf/index.php?action=dlattach;topic=1043.0;attach=609 txtscorrevole-0.0.1.tar.gz] |[[#Note|2]]| |
Versione delle 08:50, 24 ott 2012
Gli esempi qui riportati sono tratti da interventi di alcuni iscritti al Forum riguardanti il medesimo argomento.
1° esempio (prevede la presenza dell'oggetto speciale Timer):
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
2° esempio (Prevede la presenza dell'oggetto speciale Timer): |1|
da_scorrere As String = "Questa stringa scorre" i As Integer = 0 Public Sub Form_Open() Me.Center Timer1.Start End Public Sub Form_Close() Timer1.Stop End Public Sub Timer1_Timer() Inc i Label1.Text = Mid(da_scorrere, i, 10) End
3° esempio
ingegnoso e simpatico esempio, del quale potete scaricare il sorgente qui:
txtscorrevole-0.0.1.tar.gz |2|
Note
[1] Questo algoritmo è stato proposto dall'utente Ceskho del Forum Gambas-it.org.
[2] Questo algoritmo è stato proposto dall'utente Milio del Forum Gambas-it.org.